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ABSTRACT 


The  computerized  Quick-Reectlng  General  War  Gaming  System  (QUICK)  will 
accept  Input  data,  automatically  generate  global  strategic  nuclear  war 
plans,  provide  output  summaries,  and  produce  tapes  to  simulator  subsys- 
tems external  to  QUICK.  QUICK  has  been  programmed  in  FORTRAN  for  use 


on  the  CCTC  HIS  6000  computer  system. 


The  QUICK  Maintenance  Manual  consists  of  four  volumes:  Volume  I,  Data 
Management  Subsystem;  Volume  II,  Weapon/Target  Identification  Subsystem; 
Volume  III,  Weapon  Allocation  Subsystem,  Volume  IV,  Sortie  Generation 
Subsystem.  The  Maintenance  Manual  complements  the  other  QUICK  Computer 
System  Manuals  to  facilitate  application  of  the  war  gaming  system. 

■mis  volume.  Volume  I,  in  two  parts,  provides  the  programmer /analyst  with 
a technical  description  of  the  purpose,  functions,  general  procedures, 
and  programnlng  techniques  applicable  to  the  modules  (programs)  and  sub- 
routines of  the  Data  Management  subsystem.  Companion  documents  are: 

— 

a.  USERS  MANUAL 

Computer  System  Manual  CSM  UM  9-77,  Volume  I 

Computer  System  Manual  CSM  UM  9-77,  Volume  II 

Computer  System  Manual  CSM  UM  9-77,  Volume  III 

Computer  System  Manual  CSM  UM  9-77,  Volume  IV 

Provides  detailed  instructions  for  applications  of  the  system 

b.  TECHNICAL  MEMORANDUM 
Technical  Memorandum  TM  153-77 

Provides  a nontechnical  description  of  the  system  for  senior 
management  personnel 
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Figure  2.  Procedure  and  Information  Flow  in  QUICK/HIS  6000 
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Table  1.  COP  Entry  Points  (Part  1 of  2) 


BNTRY  POINT 
NAME 

CLEANP 

CLZIDS 

DIRECT 


DLETE 


ERPRIN 


HDFND 


HDPUT 


INPRIN 

INSDEL 

INSFLS 


INSGET 


INSPUT 


LG  PR  IN 


ARGUMENTS 

(none) 

(none) 

(none) 


Record  Type  Name 
( none ) 

BCD  reference  Code,  CLASS 
value,  SIDE  value.  Record 
Type  Name 

BCD  reference  Code,  CLASS 
value,  SIDE  value.  Record 
Type  Name 

Chain  Name 


( none ) 

(none) 

(none) 

Array  to  contain  output. 
Index  of  first  Item  to 
retrieve.  Number  of  Items 
to  retrieve 

Array  which  contains  Items 
to  be  Inserted,  Index  to 
Input  table  (should  be  set 
to  start  point  minus  one, 
will  be  returned  as  end 
point),  Nuofcer  of  items  to 
add 

(none) 


DESCRIPTION 

IDS  Clean  Point 

Close  IDS  File 

Retrieves  array  IDS  record 
based  on  its  binary  refer- 
ence code  stored  in  comnon 
CIO 

Deletes  current  record  of 
type  named 

Process  input  line  for  error 
message 

Finds  BCD  reference  code, 
given  values  for  CLASS, 

SIDE  and/or  Record  Type 
Name 

Adds  New  Header  of  Type 
named  with  given  values  for 
CLASS  and  SIDE 

Retrieves  master  of  chain 
named 

Process  input  line  normally 

Deletes  all  Input  tables 

Assures  that  any  additions 
to  Input  tables  are  recorded 

Obtains  input  instructions 
from  input  tables 


Inserts  items  in  input 
tables 


Process  input  line  from  long 
string 
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Table  1 


(Part  2 of  2) 


ENTRY  POINT 

NAME 

ARGUMENTS 

DESCRIPTION 

MODFY 

Record  Type  Name 

Modifies  current  record  of 
type  named  to  reflect  cur- 
rent values  In  common 

NEXTTT 

Chain  Name 

Retrieves  ndxt  record  of 
chain  named 

OPNIDS 

(none) 

Opens  IDS  file 

RETRV 

Record  Type  Name 

Retrieve  record  of  type 
named  (should  be  used  only 
for  primary  or  CALC  records) 

STORE 

Record  Type  Name 

Score  new  record  of  type 
named 
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entry  points  Is  C30.  Following  each  call  that  affects  a particular 
record  Its  binary  reference  code  Is  stored  In  word  1 of  CIO  and  Its 
record  type  number  Is  stored  In  word  4 of  CIO. 


2. 3. 1.1  Entry  OPNIDS.  This  Is  a one  time  call  to  open  the  IDS  data  file 
for  processing.  This  entry  point  may  only  be  called  once  In  an  activity 


2. 3. 1.2  Entry  CLZIDS.  This  entry  point  closes  the  IDS  data  file. 
Once  the  data  file  is  closed  no  further  IDS  processing  may  take  place 


2. 3. 1.3  Entry  DIRECT.  Any  Individual  data  record  may  be  retrieved  by 
this  entry  point  through  Its  reference  code.  Prior  to  the  call  to 
DIRECT,  the  calling  routine  must  store  the  binary  reference  code  (pege 
number  * 64  + line  number)  In  word  1 of  conmon  block  CIO.  Following 
the  call,  the  appropriate  attributes  in  common  C30  will  have  been  set 
to  the  values  of  the  desired  record. 


2. 3. 1.4  Entry  NEXTTT.  This  entry  point  retrieves  the  next  record  of 
a specified  chain  which  is  identified  through  the  argument.  Following 
the  call,  the  appropriate  attributes  in  C30  will  have  been  set  to  the 
values  of  the  record  retrieved.  An  end-of-chain  condition  is  met  If 
the  master  of  the  chain  has  been  retrieved.  The  user  must  check  word 
4 of  common  CIO  against  the  master's  record  type  number  for  end  condition 


2. 3. 1.5  Entry  HEAD.  This  entry  point  retrieves  the  master  record  of 
a chain  as  specified  within  the  calling  argument.  Following  the  call 
the  appropriate  attributes  in  consnon  C30  will  have  been  set  to  the 
values  of  the  record  retrieved.  Also,  after  this  call,  all  chaining 
(that  is  calls  to  NEXTTT)  will  begin  with  the  first  record  within  the 
chain. 


2.3. 1.6  Entry  STORE.  By  specifying  the  record  type's  alphabetic  name 
this  entry  point  creates  the  record  of  the  type  given.  Prior  to  the 
call  the  appropriate  attributes  in  common  C30  must  have  been  set  to 
the  desired  values. 


2. 3. 1.7  Entry  RETRV.  This  entry  point  retrieves  primary  or  CALC 
records.  The  record  to  be  retrieved  is  identified  by  the  record  type 
alphabetic  name.  Before  the  call  to  retrieve  a primary  record,  com- 
mon C15  must  contain  the  BCD  representation  of  the  desired  record 
reference  code.  Before  the  call  to  retrieve  a CALC  record,  attribute 
DESIG  must  be  set.  Following  the  call,  the  appropriate  attributes  in 
common  C30  will  have  been  set  to  the  value  of  the  record  retrieved. 


2.3. 1.8  Entry  MODFY.  This  entry  point  modifies  the  current  record  of 
the  type  specified  through  the  argument.  Before  calling  MODFY,  the 
record  to  be  modified  muat  be  the  current  record  of  that  type.  Also, 
all  attrlbutea  which  are  to  be  modified  must  be  set  to  the  new  values. 
In  addition,  be  aware  that  if  a match  key  is  modified,  the  current 
record  will  be  moved  to  a new  chain  based  on  the  new  match  key  value. 


2. 3. 1.9  Entry  DLETE.  This  entry  point  deletes  the  current  record  of 
the  type  specified  through  the  argument.  Before  calling  DLETE,  the 
record  to  be  deleted  must  be  the  current  record  of  that  type. 

2.3.1.10  Entry  CLEANP.  This  entry  point  assures  that  all  updated  IDS 
pages  which  are  currently  in  buffers  are  written  to  permanent  storage. 

It  is  used  primarily  before  an  IDS  save  tape  is  created. 

| 2.3.1.11  Error  Recovery.  When  an  error  occurs  during  IDS  processing, 
an  error  code  is  inserted  in  word  6 of  common  block  CIO  and  subroutine 
ERPROC  is  called  (see  section  3).  Calling  routines  may  control  the 
action  which  ERPROC  will  take  by  altering  the  entries  in  comnon  block 
ERRCOM.  The  action  codes  are: 

ABORT  - Core  dump  occurs  and  processing  stops.  (This  is  the  default 
for  NORMAC) 

FLAG  - Processing  continues  for  this  sentence  but  error  flag  (com- 
mon block  OOPS)  is  set.  (This  is  the  default  for  CHCKAC) 

PASS  - Processing  continues  — no  action  is  taken. 

Either  of  the  action  codes  (NORMAC  or  CHCKAC)  may  be  changed.  Error 
codes  may  be  added  to  the  list  for  CHCKAC  (CHEKS,  the  list,  is  origin- 
ally empty).  The  report  code  on  which  the  ERPROC  message  appears  may 
also  be  changed.  If  the  contents  of  ERR COM  are  altered  they  are  not 
reset  by  COP. 


2.3.2  Entry  Points  for  Header  Creation  and  Identification.  The  two 
entry  points  in  this  section  enter  headers  into  the  data  base  and  allow 
calling  programs  to  obtain  the  BCD  reference  code  of  a header  for  use 
with  a call  to  RETRY.  Each  entry  has  the  same  four  parameters: 


1 - BCD  reference  code  (Type  CHARACTER*8) 

2 - Value  for  CLASS  attribute 

3 - Value  for  SIDE  attribute 
A - Record  Type  Name 

Note:  The  first  parameter  should  always  be  checked  after  the  call  as 
a value  of  '00000000'  indicates  an  error  has  occurred. 

2. 3. 2.1  Entry  HDPUT.  This  entry  point  creates  a header  and  saves  its 
BCD  reference  code  in  the  data  organization  index.  Either  or  both 
values  for  CLASS  or  SIDE  may  be  blank. 


2.3. 2.2.  Entry  HDFND.  This  entry  point  retrieves  the  BCD  reference 
code  of  a header  for  use  in  a call  to  RETRV.  The  BCD  code  retrieved 
will  be  that  of  a header  whose  values  match  those  set  in  parameters 
2,  3,  and  4.  If  any  of  these  parameters  is  blank  (including  Record 
Type  Name)  it  is  not  checked.  Note  that  if  both  CUSS  and  Record  Type 
Name  are  blank  the  code  returned  is  unpredictable. 
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(see  section  2. 3. 3. 2)  or  is  a pending  operation  to  be  prefixed  to  the 
next  logical  instruction.  (The  usual  case  here  is  an  AND  or  OR  instruc- 
tion followed  by  a NOT  instruction.)  The  Instruction  codes  used  with 
this  format  appear  in  table  5. 

2. 3. 3. 4. 3 Instructions  Using  Internal  Variable.  Each  of  these  instruc- 
tions consists  of  an  Instruction  code  followed  by  the  index  of  an  inter- 
nal variable.  The  instruction  codes  used  with  this  format  appear  in 
table  6.  An  internal  variable  is  the  storage  of  intermediate  mathema- 
tical calculations.  The  Instruction  code  informs  routines  where  the 
storage  resides. 

2. 3. 3.4.4  The  General  Instruction  Format.  The  majority  of  instructions 
use  this  format.  As  shown  in  table  4 this  format  has  five  variations 
and  may  contain  from  three  to  nine  words.  The  first  major  branch  occurs 
by  checking  word  2.  If  '9'  or  '10'  is  found  a constant  follows.  If  '6* 
is  found  the  value  is  an  attribute  and  must  be  retrieved.  The  other 
major  branch  occurs  with  attributes.  If  word  '5'  is  zero  the  attribute 
is  not  modified.  Otherwise,  the  information  necessary  to  retrieve  the 
proper  record  containing  the  desired  attribute  is  given.  This  occurs 

as  a result  of  an  'OF'  phrase.  The  Instruction  codes  which  use  the 
general  Instruction  format  are  found  in  table  7. 

2. 3. 3. 5 Input  Instructions  Code  Entry  Points.  Routines  in  the  QUICK 
system  may  access  the  input  instruction  array  through  the  entry  points: 
INSGET,  INSPUT,  INSFLS,  and  INSDEL  (see  table  1). 

2. 3. 3. 5.1  INSGET.  This  entry  point  moves  a specified  portion  of  the 
input  instruction  array  into  a specified  array.  The  arguments  are  the 
local  routine's  array,  the  index  of  the  first  word  to  retrieve  and  the 
number  of  words  to  retrieve. 

2. 3. 3. 5. 2 INSPUT.  This  entry  point  inserts  new  instructions.  The 
arguments  are  the  local  routine's  array  which  contains  the  new  instruc- 
tions, an  index  which  is  set  to  the  word  to  be  filled  first  minus  one, 
and  the  number  of  words  to  be  Inserted.  Note  that  the  second  argument 
is  returned  with  the  index  number  of  the  last  word  filled. 

2. 3. 3. 5. 3 INSFLS . This  entry  point  assures  that  all  updates  to  the 
instruction  array  are  recorded.  It  should  be  called  after  a completed 
series  of  calls  to  INSPUT.  It  has  no  arguments. 

2. 3. 3. 5.4  INSDEL.  This  entry  point  deletes  the  input  instruction 
table.  It  has  no  arguments. 

2. 3. 3. 6 Instruction  Code  Through  text  English  connands,  the 

user  has  at  hand  a powerful  method  of  input  data  generalization.  The  series 
of  Instruction  codes  which  is  simply  a translation  of  the  input  commands, 
then,  is  likewise  non-restrlctlve.  The  previous  subsection  outlined 

' .11  of  the  various  combinations  that  instruction  codes  could  have.  In 
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order  to  sunmarize  and  draw  together  many  of  the  pertinent  polnta 
concerning  instruction  code  construction,  table  8 Is  given.  This 
example  command  presents  a sentence  of  a complex  nature  as  well  as 
the  instruction  code  array  that  would  be  constructed  by  the  COP. 

Note  that  by  logically  scanning  the  array  (calls  to  INSGET)  modules 
may  readily  compute  the  desired  result. 

2.3.4  Entry  Points  for  Input  Line  Processing.  The  three  entry  points 
in  this  section  control  the  printing  of  the  lines  of  text  English  Input 
by  the  user.  The  normal  call  (INPRIN)  saves  the  current  line  and  prints 
the  previous  line.  The  LG PR IN  entry  is  similar  to  INPRIN  except  that 
along  with  the  current  line  it  saves  an  asterisk  to  show  that  the  cur- 
rent line  was  read  as  part  of  a long  string.  Finally,  the  ERPRIN  entry 
is  called  to  print  the  current  line  prior  to  any  error  message  concern- 
ing it. 

2.4  CUICfa  Data  Base  Structure 

The  structured  data  base  is  centralized  onto  one  data  file.  User- 
directed  or  module-generated  data  is  properly  included  within  the 
data  base  structure  automatically  by  the  IDS  system  as  directed 
through  the  COP. 

Modules  as  they  are  executed  do  not  generate  new  data  files  linkage. 

All  linkage  must  be  initially  defined  prior  to  execution.  Only  the 
contents  of  data  records  are  updated,  not  the  structure.  Figures  to 
be  presented  within  this  subsection  define  the  structure. 

The  IDS  data  records,  as  given  in  future  subsections,  are  depicted 
with  a rectangular  block  and  has  a format  as  shown  below. 
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Record  Class 

Record  Type 

Number 

Record  Nme 

Number  of  Records 

Record  Length 

The  entries  in  the  block  are: 

o Record  Class  - Indicates  how  records  are  stored  and  accessed. 

A 'C'  defines  calculated  (CALC)  records,  a * P ' Primary  Records, 
or  an  'S'  for  Secondary  Records 

o Record  Type  Number  - Unique  number  assigned  to  the  record 
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Table  8.  (Pert  5 of  5) 


ARRAY 

NUMBER 

ARRAY 

VALUE 

DESCRIPTION 

86 

0 

87 

50* 

Load  Numeric 

88 

6 

Numeric  ie  an  attribute 

89 

157 

Attribute's  address  (SPDLO) 

90 

141 

Attribute' 8 number  (SPDLO) 

91 

0 

No  OF  phrase 

92 

18* 

Set  equal  to  numeric 

93 

10 

Numeric  is  a constant 

94 

900. 

Numeric  constant 

95 

2* 

End  of  phrase 

96 

1* 

End  of  clause 

♦Instruction  code. 
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o Record  Name  - COBOL  name  for  the  record 

o Number  of  Recorda  - Estimated  number  of  data  records  denoted 
by  the  record  block 

o Record  Length  - Number  of  characters  requested  for  the  block 

o Double  Line  - Denotes  CALC  records 

Individual  record  blocks  are  connected  with  vectors  and  arrows  repre- 
senting each  chain  relationship  in  the  file.  Beside  each  chain  vector, 
the  chain  name  is  entered.  Below  each  chain  name  an  indication  is 
given  to  describe  how  records  are  positioned  or  entered  in  the  chain. 
The  appropriate  entries  are:  'F'  for  Flrat,  'L1  for  Last,  'S'  for 
Sorted,  ’B'  for  Before,  and  'A'  for  After. 

Organizationally,  the  QUICK  integrated  data  base  may  be  divided  into 
two  parts:  the  scenario  (or  gaming)  data  and  the  organization  data. 

2.4.1  Scenario  Data  Structure.  Figure  6 is  a picture  of  the  scenario 
data  structure.  However,  as  this  structure  is  quite  complex,  it  will 
be  divided  into  three  parts  for  discussion  purposes.  The  figures 
given  for  the  subdivisions  are  incomplete  in  that  they  do  not  have 
connected  to  them  the  chains  which  Interrelate  the  three  subdivisions. 

2.4. 1.1  Target  Data  Structure.  Figure  7 shows  the  target  data  organ- 
ization. The  TARGET  record  is  the  central  record  type  of  the  data  base 
and  is  a CALC  record.  The  principal  hierarchy  is  that  of  target  class 
header  (TGTHD)  target  type  (TARGTY)  and  individual  target  (TARGET). 
Targets  are  grouped  by  region  and  complex.  The  TARGXX  chain  links 
some  individual  target  records  to  additional  data.  In  one  case  the 
data  is  that  for  a recovery  base  (RECBTG).  In  the  other  case  the  tar- 
get is  also  a missile,  bomber,  or  tanker  base  (MSBMTG). 

Figure  7 also  shows  refuel  points  (REFFNT)  associated  with  their 
region. 


2.4. 1.2  Weapon  Data  Structure.  Figure  8 shows  the  weapon  data  struc- 
ture. One  hierarchy  contains  the  weapon  class  (WEPHDX  weapon  type 
(WEAPON),  weapon  type  subdivided  by  payload  (WEPSUB)  and  the  individual 
weapon  base  (MSBMTG).  There  is  also  a warhead  class  (WARHD)  with  war- 
head type  as  details  (WRHEAD) . Weapons  are  connected  to  their  warheads 
via  a payload  table  (PAYTBL)  which  is  master  o i one  chain  containing 
all  weapon  subtypes  (WEPSUB)  which  utilize  that  table  and  another  chain 
which  contains  counts  (PYLDCT)  of  the  various  warhead  types. 

Finally,  the  QUICK  system  creates  weapon  groups  (WEPNGP)  which  has  a 
payload  table  and  a number  of  individual  bases  (MSBMTG).  These  groups 
are  also  assigned  a geographic  region. 
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Figure  7.  Target  Data  Structure 
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• Figure  8.  Weapon  Data  Structure 

39  CH-1 


v* 


i . 


r 


{ 


2.4. 1.3  Geographic  Data  Structure.  Figure  9 shows  the  geographic  data. 
The  principal  Items  here  are  the  two  corridor  hlerarchys.  Penetration 
corridor  class  (PNCHD)  with  individual  corridors  (PNCRD)  and  their 
Individual  legs  (PNCRLG) . Depenetration  corridor  class  (DPCRLG)  with 
corridors  (DEPCRD)  and  legs  (DPCRLC' . Corridors  are  connected  to 

(weapon  groups,  target  list  elements  (TARCDE)  and  recovery  bases  by 

records  which  contain  the  represented  distance.  Distances  from  penetra- 
tion corridor  to  target  (TPDIST),  from  target  to  depenetration  corridor 
to  recovery  bases  (RDDIST). 

I 

2.4. 1.4  Sortie  Data  Structure.  Figure  9.1  shows  the  structure  of 
sortie  data  developed  by  the  QUICK  Bystem.  The  principal  hierarchy  Is 
the  scenario  target  list  (TARNUM)  and  the  targets  to  be  considered 
(TARCDE).  The  individual  weapon  assignment  (ASSIGN)  relate  the  targets 
to  the  weapon  group  assigned.  Further,  the  weapon  groups  are  related 
to  their  Individual  sorties  (SRTYTB).  The  sorties  are  further  des- 
cribed by  sortie  events  (SRTEVA  and  SRTEVB).  The  SRTEVA  records  mark 
actual  weapon  events  and  are  linked  to  the  weapon  assignment.  Figure 

9.1  also  shows  three  record  types  not  an  integral  part  of  the  scenario 
structure.  The  SMAT  record  which  contains  value  for  the  ALOC  modules 
SMAT  array  (see  CSM  MM  9-77,  Volume  III),  the  NUMTBL  record  which 
contains  various  scenario  quantities,  and  the  ALCPRM  which  contains 
ALOC  module  control  parameters. 

2.4.2  Organization  Data  Structure.  Organization  data  is  viewed  as 
containing  non-gaming  related  data  and  la  primarily  used  to  define  the 
shape  of  the  gaming  structure.  By  querying  chains  within  these  struc- 
tures, modules  may  readily  ascertain  where  attributes  reside  within 
the  gaming  structure.  The  organization  data  may  be  broken  into  three 
subdivisions;  the  data  organization  Index,  the  assignment  table,  and 
miscellaneous  organization  data. 

2.4.2. 1  Data  Organization  Index.  Figure  10  shows  the  data  organization 
Index.  This  hierarchy  contains  the  Information  needed  for  subroutines 
or  modules  to  determine  the  organization  of  the  data  base.  Chained  to 
the  header  (INDTHD)  is:  a list  of  the  record  types  (INDRCT),  a list 
of  the  attributes  (INDATR),and  a list  of  the  header  reference  codes 
( INDHCS) . The  list  of  reference  codes  is  also  related  to  the  header 
record  type  record.  Each  record  type  (INDRCT)  is  master  of  a chain  of 
records  indicating  which  chains  It  Is  a master  of  (INDMST)  and  also  a 
chain  indicating  which  chains  It  Is  a detail  of  (INDDET).  Each  attri- 
bute record  ( INDATR)  contains  edit  Information  for  the  attribute. 

Some  attributes  are  defined  as  'LIST'  attributes  and  have  chained  to 
them  records  which  contain  their  legal  values  (ALPHVL).  Finally,  a 
record  links  attributes  to  the  record  type(s)  which  contain  them  (LINKER). 

2.4. 2. 2  Assignment  Table.  Figure  11  shows  the  Assignment  Table.  This 
hierarchy  contains  the  Information  used  to  determine  several  attributes 
for  targets  based  on  Information  from  a JAD  format  record.  Chained  to 
the  header  (ASNTAB)  for  each  aide  are  recorda  containing  the  valid 
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Figure  9.  Geographic  Data  Structure 
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Figure  9.1  Sortie  Data  Structure 
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country  codes  »nd  the  region  they  are  in  (ASNCTY) . These  records  are 
sorted  on  region  and  country  code.  Also  under  each  header,  are  records 
(ASNCLS)  containing  the  values  for  CLASS  for  the  side.  Under  each  of 
these  records  are  all  the  TYPE  names  that  belong  to  this  class  (ASNTYP) . 
The  countries  and  types  are  connected  via  consnon  ASNREC  records.  These 
records  contain  restrictions  based  on  Category  Code,  the  location  or 
owner  of  the  target,  and  either  its  name  or  size.  It  also  contains  the 
TASK  that  will  be  assigned  to  a target  meeting  these  restrictions.  On 
the  other  chain  under  TYPE  are  the  alphabetic  portions  of  DESIG  to  be 
used  in  assigning  a DESIG  to  the  target  (TYPDES) . Subsequent  DESIGs 
are  used  if  the  first  values  are  already  used.  All  of  these  records 
with  the  same  alphabetic  portion  of  DESIG  are  chained  together  under 
a comnon  record  (ASNDES)  containing  the  DESIG  and  the  number  in  each 
region. 
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Table  1 

9.  Date  Base  Record  Types  - Headers 
(Pert  1 of  2) 

RECORD  TYPE 
NUMBER 

RECORD 

NAME 

TYPE 

DESCRIPTION  (ATTRIBUTES) 

CLASS  VALUES 

1 

TGTHD 

Target  Class  Header 
(CLASS, SIDE, ICLASS) 

BOMBER, MISSIL 
TANKER,  etc. 

2 

WPG PHD 

Weapon  Group  Header 
(CLASS, SIDE) 

WEPGRP 

3 

SRTYHD 

Sortie  Table 

Header  (CLASS, SIDE) 

SORTIE 

4 

PNCHD 

Penetration  Corridor 

Header  (CLASS, SIDE) 

PENCOR 

5 

DPCHD 

Depenetration  Corridor 

Header  (CLASS, SIDE) 

DEPCOR 

6 

CMPHD 

Complex  Header 
(CLASS, SIDE) 

COMPLX 

7 

RFPTHD 

Refuel  Point  Header 
(CLASS, SIDE) 

REFUEL 

8 

REGHD 

Region  Header 
(CLASS, SIDE) 

REGION 

9 

PAYHD 

Payload  Table  Header 
(CLASS, SIDE) 

PAYLOD 

10 

WARHD 

Warhead  Type  Header 
(CLASS, SIDE) 

BOMB, ASM, RV, 

MRV.MIRV, 

FACTOR 

11 

WE  PHD 

Weapon  Type  Header 
(CLASS, SIDE) 

MSLWEP, BMBWEP 
TNKWEP 

12 

RCBHD 

Recovery  Baae  Header 
(CLASS, SIDE) 

RECOV 

13 

TARNUM 

Target  List  Header 
(CLASS) 

TARNUM 

' 1 
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Table  9.  (Part  2 of  2) 

RECORD  TYPE 
NUMBER 

RECORD 

NAME 

TYPE 

DESCRIPTION  ( ATTRIBUTES ) 

CUSS  VALUES 

14 

INDTHD 

Data  Organization  Index 
Header  (CLASS)  (This  Is 
a CALC  record) 

INDEX 

15 

ASNTAB 

Asslgnnent  Table  Header 
(CLASS, SIDE) 

ASSIGN 

16 

DCTHD 

Dictionary  Header 
(CLASS) 

DICTON 

17 

SYNHD 

Syntax  Directory  Verb 
Header  (CLASS) 

SYNTAX 

18 

ADVHD 

Syntax  Directory  Adverb 
Header  (CLASS) 

ADVERB 

19 

MODTAB 

Module  Link  Table 
(CLASS,  link  Table 
(100  words)) 

MODTAB 

20 

SMAT 

SMAT  Array  (CLASS) 

(This  is  a CALC  record) 

SMAT 

21 

DISPHD 

REPORT  Module  Display 
Header  (CLASS) 

DIPLY 

22 

NUMTBL 

General  Number  Table 

(CUSS) 

NUMBER 

23 

TABLST 

Utility  Table  Header 
(CUSS)  (This  is  a CALC 
record) 

TABLST 

24 

1 

ALCPRM 

ALOC  Control  Parameters 
(CUSS  ) 

ALCPRM 
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I Table  10.  Data  Baae  Record  types  - Secondary  Records 

(Part  1 of  4) 


RECORD  TYPE 

NUMBER  NAME 

31  TARGTY 

32  WEPNGP 

33  SRTYTB 

34  PENCRD 

35  DEPCRD 

36  COMPTG 


DESCRIPTION  (ATTRIBUTES) 

Target  type  (CNTRYLO,  CNTRYOW,  FLAG,  FVALT1, 

FVALT2,  FVALT3,  FVALT4,  FVALT5,  FVULN1,  NHRDCOMP, 
NTIMCOMP,  Tl,  T2,  T3,  T4,  T5,  TYPE,  VULN1  VULN2) 

Weapon  Group  (EXPASM,  GBASE,  GFRASM,  GIAT,  GLONG, 
GNWPNADS , GNWPNS , GNVEH,  GPKNAV,  GREPCODE,  GREFTIME, 
GROUP,  GSBL,  GSBLREAL,  GSTART,  GTYPE,  GTYPREFC , 
GYIELD,  IALERT,  IREG,  MAXSAL,  NFIXES,  NSAL,  NSFIX, 
NUMALOC) 

(GROUP  is  used  as  a Match  Key) 

Sortie  Table  (SDELAY,  SDEPEN , SIDEKNO,  SLAT,  SLONG, 
SLOW,  SLOW1,  SLOW2,  SLOW3,  SORTNO,  S REFUEL, 

SVEHNUM) 

Penetration  Corridor  (ATTRCO,  ATTRPRE1,  ATTRPRE2, 
ATTRPRE3,  ATTRSU,  CORNUM,  DEFDIST1,  DEFDIST2, 
DEFDIST3,  DEFRAN,  HILQAT,  KORSTY,  NPRCRDEF,  ORLAT, 
ORLONG) 

Depenetration  Corridor  (CORNUM,  MYRECOV1,  MYRECOV2, 
MYREC0V3,  MYRECOV4) 

Complex  Target  (CNTRYLO,  CNTRYOW,  DESIG,  FLAG, 
FVALT1,  FVALT2,  FVALT3,  FVALT4,  FVALT5,  FVULN1, 

HAZ2,  HGZ,  GHZ2,  ICOMPL,  IDHOB,  INDEXNO,  LAT, 

LONG,  MAXFRA,  MAXKILL,  MINKILL,  MISDEF,  NAME, 
NHRDCOMP,  NTIMCOMP,  NTINT,  RADIUS,  TARDEFHI, 
TARDEFLO,  TASK,  TGTMULT,  TGTNUMB,  Tl,  T2,  T3,  T4, 

T5,  VALUE,  VOZ)  (ICOMPL  is  a match-key) 

Footprint  Equation  (Contains  one  hundred  words 
which  are  module  defined) 

Region  (IREG,  CCREL)  (IREG  is  a match  kay) 

Payload  table  (PAYTBLNM) 

Warhead  (CEPASM,  FFRAC,  NAREADEC,  NCMS,  NDECOYS , 
NWADS,  PAYALT,  PDUD,  RANGEASM,  RELASM,  SPEEDASM, 
TYPE,  YIELD) 
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RECORD  TYPE 
NUMBER  NAME 


Table  10.  (Part  2 of  4) 


DESCRIPTION  (ATTRIBUTES) 


41 

WEAPON 

Weapon  type  (ACTIVE,  ALTDLY,  BALC,  CEP,  CMISS, 
FUNCTI,  IPENMO,  1RECM0,  IREP,  LCHINT,  MAXSAL, 
NALTDLY , NMPSIT,  PDES,  PFPF,  PINC,  PLABT,  RRABT, 
RANGE,  RANGEDEC,  RANGEREF,  REANG,  REL,  RNGMIN, 
SIMLUN,  SPDLO,  SPEED,  TOFMIN,  TTOS , TYPE)  (TYPE 
is  a match  key) 

42 

INDRCT 

Index  Record  Type  Record  (contains  record  type 
name  and  number) 

43 

INDATR 

Index  Attribute  Record  (ATTRIBN1 , ATTRIBN2, 
ATTRIBNO,  ATTRBTYP,  ATTRIBAD,  ATDEFALT,  ATTRNGHI, 
ATTRNGLO)  (ATTRIBN1  and  ATTRIBN2  are  match  keys) 

44 

INDMST 

Index  Master  Record  (CHAINNAM,  MASDETNM,  MASDETNO) 

45 

DCTTAB 

Dictionary  Tab-character  (TABCHAR)  (TABCHAR  is  a 
match  key) 

46 

SYNVRB 

Syntax  Verb  (CLAUSESW,  VERBVAL)  (VERBVAL  is  a 
matcky  key) 

47 

PRMADV 

Syntax  Adverb  (ADVERBVL,  CLAUSETY,  PHRASETY) 

(ADVERB VL  is  a match  key) 

48 

TABLE Z 

Utility  Table  (contains  100  words  which  are  module 
defined) 

49 

INDDET 

Index  Detail  Record  (CHAINNAM,  MASDETNM,  MASDETNO) 

50 

SRTEVA 

Sortie  Event  Type  A (LAT,  LONG,  SCUMSURV,  SCHANGE, 
SDAMEXP,  ADELTIME,  SEVCODE,  SLOCATTR,  SPLACE) 

51 

ASNCLS 

Assignment  Table  Class  (ACLASS) 

52 

DISPRC 

Display  Record  (ID IS PNAMl,  DISPNAM2) 

53 

SRTEVB 

Sortie  Event  Type  B (Same  attributes  as  record 
number  50) 

61 

TARGET 

Target  (BENO,  CATCODE,  DESIG,  HAZ,  HAZ2,  HGZ,  HGZ2, 

ICOMPL,  IDHOB,  IGIW,  INDEXNO,  IREG,  ISITE,  LAT, 

LONG,  MAJOR,  MAXFRA,  MAXKILL,  MINK ILL,  MINOR, 

MISDEF , NAME,  NTINT,  POP,  RADIUS,  SIDE,  TARDEFH T , 
TARDEFLO,  TASK,  TGTNUMB,  VALUE,  VOZ,  WACNO)  (Record 
Is  a CALC  record  - randomised  on  DESIG) 


. 
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Tabl«  10.  (Part  3 of  4) 


RECORD  TYPE 

NUMBER  NAME 

62  PNCRLC 


Penetration  Corridor  Lag  (ATTRLE,  DOGLEG,  LAT, 
LONG) 


63  DPCRLG  Depenetration  Corridor  Leg  (DOGLEG,  LAT,  LONG) 

64  TARCDE  Target  Llet  Element  < TGTNUMB , TGTREPCD) 


65  TPDIST 


Distance  from  Target  to  Penetration  Corridor 
(ATTRCD,  DISTANCE) 


66  TDDIST 


67  RDDIST 


69  PYLDCT 


70  ASSIGN 


71  DCTWRD 


72  SYNCLZ 


73  ADVELM 


74  LINKER 


75  ALPHVL 


76  INDHCS 


77  DISPDT 


Distance  from  Target  to  Depenetration  Corridor 
(DISTANCE,  DISTDF) 

Distance  from  Recovery  Base  to  Depenetration 
Corridor  (DISTANCE) 


68  WEPSUB  Weapon  Subtype  (PAYTBLNM)  ( PAYTBLNM  Is  a match  key) 


Count  of  warhead  type  In  Payload  Table  (NUMLOAD) 

Assignment  of  Weapon  Group  to  Target  (ARRIVE,  ASGHOB, 
DGZLAT,  DGZLONG , FIXED,  FLMULT,  FSALVO,  GROUP,  KORR, 
OFFLAT,  OFFLONG,  PEN,  RVAL,  TGTNUMB) 

Dictionary  Word  (WORDSTR1 , W0RDSTR2,  WORDTY,  WORDVL) 

Links  Verbs  to  Adverbs  ( ADVERB VL,  VERBVAL) 

Gives  Legal  Elements  for  elemental  Adverbs 
(ELEMNTTY,  ELEMNTVL) 

Links  Attributes  to  Record  Types  (ATTRIBN1 , ATTRIBN2 , 
ATTRIBAD,  ATTRBTYP,  contains  2 words  which  are  not 
attributes) 

Legal  Values  for  'LIST'  Attributes  (ALPLSTVL) 

Stores  Header  reference  codes  (contains  header 
reference  code  (two  words),  and  the  associated 
CLASS  and  SIZE  values)  p 

Display  table  list  (contains  100  words  which  are 
created  by  REPORT) 
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Table  10.  (Pert  4 of  4) 


RE0ORD 

NUMBER 

TYPE 

NAME 

DESCRIPTION  (ATTRIBUTES') 

78 

ASNCTY 

Assignment  Table  Country  (COUNTRY,  REGION) 

79 

ASNTYP 

Assignment  Table  Type  (ATYPE) 

80 

ASNDES 

Assignment  Table  Deslg  (DESIGA2,  KOUNT1,  KOUNT2, 
KOUNT3,  KOUNT4,  KOUNT5) 

91 

MSBMTG 

Missile  Bomber  Target  (ADBLI,  ADBLR,  ALRTDB , 
ALRTDL,  GROUP,  IREFUEL,  NADBLI,  NADBLR,  NLRTDB, 
NLRTDL,  NOALER,  NOINCO,  NOPERSQ,  NPRSQ1,  NPRSQ2 , 
NPRSQ3,  NPRSQ4,  NUMDBL,  PAYTBLNM , PKNAV,  VONBASE, 
WEPNAME) 

92 

RECBTG 

Recovery  base  (CAPACITY) 

93 

REFPNT 

Refuel  Point  (LAT,  LONG,  IREG) 

94 

ASNREC 

Assignment  Table  Category  (ASNTASK,  CATHI,  CATLO, 
CNFLG,  MWCAP) 

95 


TYPDES 


Assignment  Table  Type  DESIG  (DESIGA2,  FULL1,  FULL2 
FULL3,  FULL4,  FULL5) 


Table  11.  Data  Base  Chains  (Part  1 of  4) 


CHAIN 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

DESCRIPTION 

ADVADV 

ADVHD 

PRMADV 

Links  Adverb  Header  to  adverbs 

ADVERB 

PRMADV 

SYNCLZ 

Links  adverb  to  link  to  verb 

AILINK 

INDATR 

LINKER 

Links  Attribute  Record  to  link  to 
record  type 

ALCLAS 

ASNTAB 

ASNCLS 

Links  Assignment  table  header  to 
assigned  classes 

ALLDES 

ASNTAB 

ASNDES 

Links  Assignment  table  header  to 
assigned  DESIG 

ALTDES 

ASNTYP 

TYPDES 

Links  Assigned  type  to  link  to  DESIGs 
for  that  type 

ALTYPE 

ASNCLS 

ASNTYP 

Links  Assigned  class  to  assigned  types 
in  that  class 

ASGWPN 

TARCDE 

ASSIGN 

Links  target  to  fix  assignments  to  it 

ASNRNG 

ASNCTY 

ASNREC 

Links  Assigned  country  to  category 
ranges  for  that  country 

ATRIB 

INDTHD 

INDATR 

Links  index  header  to  attribute  record 

CLAUSE 

SYNVRB 

SYNCLZ 

Links  verb  to  link  to  adverbs 

CMPTGT 

COMPTG 

TARGET 

Links  complex  to  targets  which  make  up 
the  complex 

COMPLX 

CMPHD 

COMPTG 

Links  complex  header  to  complexes 

CONTRY 

ASNTAB 

ASNCTY 

Links  assignment  table  header  to 
assigned  countries 

DEPCOR 

DPCHD 

DEPCRD 

Links  depenetration  corridor  header 
to  depenetration  corridors 

DEPDST 

TARCDE 

TDD 1ST 

Links  target  to  distance  to  depenetra- 
tion corridors 

DEPLEG 

DEPCRD 

DPCRLG 

Links  depenetration  corridors  to  its 
doglegs 

DESTYP 

ASNDES 

TYPDES 

Links  assigned  DESIG  to  link  to  assigned 
type 

DETORE 

DEPCRD 

RDDIST 

Links  depenetration  corridor  to  distance 

to  recovery  base 


, 


1 

Table  11. 

(Part  2 of  4) 

CHAIN 

NAUF 

MASTER 

RECORD 

DETAIL 

RECORD 

DESCRIPTION 



DETOTG 

DEPCRD 

TDDIST 

Links  depenetration  corridor  to  distance 
to  target 

DSPITM 

DISPRC 

DISPDT 

Links  display  table  to  Its  elements 

DSPLAY 

DISPHD 

DISPRC 

Links  display  header  to  display  tables 

ELEMNT 

PRMADV 

ADVELM 

Lilies  elemental  adverb  to  Its  legal 
elements 

EQUATE 

PAYTBL 

FOOTEQ 

Links  footprint  equations  to  the  proper 
payload  table 

EVENT 

SRTYTB 

SRTEVA 

Links  sortie  table  to  event  type  A 
(weapon  event) 

EVENT 

SRTYTB 

SRTEVB 

Links  sortie  table  to  event  type  B 
(non-weapon  event) 

GRPREG 

RGION 

WEPNGP 

Links  region  to  weapon  groups  in  that 
region 

IALINK 

INDRCT 

LINKER 

Links  record  type  to  link  to  attributes 

IRDET 

INDRCT 

INDDET 

Links  record  type  to  record  showing 
chains  of  which  it  Is  a detail 

IRMAS T 

INDRCT 

INDMST 

Links  record  type  to  record  showing 
chains  of  which  it  Is  master 

LISTXX 

TARNUM 

TARCDE 

Links  target  list  header  to  elements 
of  the  list 

METOTG 

PENCRD 

TPDIST 

Links  penetration  corridor  to  distance 
to  target 

MYASGN 

WEPNGP 

ASSIGN 

Links  weapon  group  to  fixed  assignments 

MYBASE 

WEPSUB 

MSBMTG 

Links  weapon  sub-type  to  missile/bomber 
targets  that  are  Its  bases 

MYEVNT 

ASSIGN 

SRTEVA 

Links  weapon  assignments  to  their  sortie 
event 

MYNAMZ 

INDRCT 

INDHCS 

Links  record  type  for  headers  to  their 
reference  codes 

MYPAY 

PAYTBL 

PYLDCT 

Links  payload  table  to  warhead  type 
count 

MYSRTY 

WEPNGP 

SRTYTB 

Links  weapon  group  to  its  sortie  tables 

**-:■ 
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Table  11.  (Pert  3 of  4) 


A 


i 


rv 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

MYSQDN 

WEPNGP 

MSBMTG 

NAMEZ 

INDTHD 

INDHCS 

PAYTAB 

PAYHD 

PAYTBL 

PAYWEP 

PAYTBL 

WEPSUB 

PENCOR 

PNCHD 

PENCRD 

PENDST 

TARCDE 

TPDIST 

PENLEG 

PENCRD 

PNCRLG 

RCTYP 

INDTHD 

INDRCT 

RECDST 

RECBTG 

RDDIST 

RECOVB 

RCBHD 

RECBTG 

REFREG 

RGION 

REFPNT 

REFUEL 

RFPTHD 

REFPNT 

REGION 

REGHD 

RGION 

SORTIE 

SRTYHD 

SRTYTB 

TAB 

DCTHD 

DCTTAB 

TABXYZ 

TABLST 

TABLE Z 

TARGXX 

TARGET 

MSBMTG 

TARGXX 

TARGET 

RECBTG 

TGTREG 

RGION 

TARGET 

TGTTGT 

TARGTY 

TARGET 

DESCRIPTION 


Links  weapon  group  to  mlsslle/bomber 
targets  which  provide  bases  for  the 
group 


Links  Index  header  to  header  reference 
codes 


tables 


TTto  payload 


Links  payload  table  to  weapon  sub- type 
that  uses  it 


Links  penetration  corridor  header  to 
penetration  corridors 


Links  target  to  distance  to  penetration 
corridor 


Links  penetration  corridor  to  Its  doglegs 
Links  Index  header  to  record  types 


Links  recovery  base  to  distance  to  depen- 
tratlon  corridors 


Links  recovery  base  header  to  recovery 
bases 


Links  region  to  refuel  points  in  the 
region 


Links  refuel  point  header  to  refuel 
points 


Links  region  header  to  regions 
Links  sortie  header  to  sortie  tables 


Links  dictionary  header  to  its  tab  char- 
acters 


Links  utility  table  headep. to  utility 
tables 


Links  target  to  mlsslle/bomber  target 
additional  data 


Links  target  to  recovery  base  additional 

data 


Links  region  to  targets  In  region 

Links  target  type  to  targets  of  that 
type 


Table  11.  (Part  4 of  4) 


CHAIN 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

DESCRIPTION 

TGTTYP 

TGTHD 

TARGTY 

Links  target  header  to  target  types 

TYPRNG 

ASNTYP 

ASNREC 

Links  assigned  type  to  category  range 
for  that  type 

VALIST 

INDATR 

ALPHVL 

Links  'list'  attribute  to  Its  legal 
values 

VERB 

SYNHD 

SYNVRB 

Links  syntax  header  to  verbs 

WARHED 

WARHD 

WRHEAD 

Links  warhead  header  to  warhead  types 

WEPGRP 

WPG PHD 

WEPNGP 

Links  weapon  group  header  to  weapon 
groups 

WEPNST 

WEAPON 

WEPSUB 

Links  weapon  type  to  weapon  subtype 

WEPPAY 

WRHEAD 

PYLDCT 

Links  warhead  type  to  count  In  payload 
table 

WEPTYP 

WE  PHD 

WEAPON 

Links  weapon  header  to  weapon  types 

WORD 

DCTTAB 

DCTWRD 

Links  tab  character  to  words  with  that 
tab 

WPINGP 

PAYTBL 

WEPNGP 

Links  payload  table  to  weapon  groups 

using  that  table 


Table  12.  Chains  Which  are  Linked  to  Master 


CHAIN  NAME 


ADVERB 
AIL INK 
ALTDES 
ASGWPN 
ASNRNG 
CMPTGT 
DEPDST 
DETORE 
DETOTG 
DESTYP 
IALINK 
METOGP 
METOTG 
MYASGN 
MY BASE 
MYEVNT 
MYNAMZ 
MYSQDN 
MYSRTY 
PAYWEP 
PENDST 
RECDST 
TAPGXX 
TARGXX 
TGTREG 
TGTTYP 
TGTTGT 
WARHED 
WEPPAY 
WPINGP 


MASTER  RECORD 


PRMADV 


INDATR 

ASNTYP 

TARCDE 

ASNCTY 

COMPTG 

TARCDE 

DEPCRD 

DEPCRD 

ASNDES 

INDRCT 

PENCRD 

PENCRD 

WEPNGP 

WEPSUB 

ASSIGN 

INDRCT 

WEPNGP 

WEPNGP 

PAYTBL 

TARCDE 

RECBTG 

TARGET 

TARGET 

RGION 

TARGTY 

TARGTY 

WARHD 

WRHEAD 

PAYTBL 


DETAIL  RECORD 


SYNCLZ 


LINKER 
TYPDES 
ASSIGN 
ASNREC 
TARGET 
TDD 1ST 
RDDIST 
TDD 1ST 
TYPDES 
LINKER 
GPDIST 
TPDIST 
ASSIGN 
MSBMTG 
SRTEVA 
INDHCS 
MSBMTG 
SRTYTB 


RDDIST 

MSBMTG 

RECBTG 

TARGET 

TARGET 

TARGET 

WRHEAD 

FYLDCT 

WEPNGP 
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Call 

STORE  for 
Input  Header 


XCLASS  « YCLASS 
XSIDE  - YSIDE 
YREDCD 
•HEADRF 


Output  New 
Reference  Code 
(REFCOD) 


Call  STORE 
"INDHCS"  to 
Save  Record 


3.7.4  Subroutine  INICOP 


i 


PURPOSE:  To  Initialize  COP  headers  and  check  for  special 

run  modes 

ENTRY  POINTS:  INICOP 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  C15,  C30,  ERRCOM,  IPQT,  OOPS,  STRING 

SUBROUTINES  CALLED:  BANNER,  BOOT,  DLETE,  ENTMOD(SRM) , ERPRIN, 

GETSTR,  HDFND,  OPNIDS,  RETRV,  STORE,  WEBS TO 

CALLED  BY:  COP 

Method: 

The  standard  header  Is  produced  and  GETSTR  called  for  the  first  string. 
If  the  first  string  of  input  is  "RESTORE,"  the  overlay  for  the  Save 
and  Restore  Module  (SRM)  is  executed,  IDS  file  openned  and  GITSTO  is 
called  again.  The  current  string  is  now  checked  for  the  value 
"INITIALIZE."  If  this  is  the  value,  the  overlay  for  BOOT  is  executed. 

In  any  case,  the  next  string  is  obtained  from  GETSTR  and  the  utility 
tables  purged.  Finally,  various  headers  are  retrieved  and  the  syntax 
analysis  process  begun  by  bringing  in  the  ERRFND  overlay  and  calling 
WEBSTR. 

Subroutine  INICOP  is  illustrated  in  figure  17. 


Set  Standard 
Error 

Conditions 


INITIALIZE' 


Call 

ERPRIN 


Call  LLINK 
And  BANNER 
For  BOOT 


Cold  Boot 
Header 


Call 

BOOT 


Figure  17.  (Part  3 of  4) 


3. 7. 4.1  Subroutine  INPRIN 

PURPOSE:  Control  Input  print 

ENTRY  POINTS:  INPRIN,  ERPRIN,  LGPRIN 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  IPQT 

SUBROUTINES  CALLED:  None 

CALLED  BY:  COP,  GETSTR,  INICOP,  LNGSTR,  SYNTAX 

Method : 

Both  the  INPRIN  and  LGPRIN  entry  points  have  a similar  process.  The 
INPSW  switch  Is  checked  and  If  false  the  containers  of  HOLD  and  HFLAG 
are  printed  (written  to  file  11).  Then  the  current  input  line  ( INBUF) 
Is  stored  In  HOLD.  HFLAG  Is  set  according  to  the  entry  point  - blank 
for  INPRIN,  "*"  for  LGPRIN. 

The  ERPRIN  entry  point  prints  HOLD  if  it  has  not  been  printed  and 
resets  INPSW. 

Subroutine  INPRIN  is  illustrated  In  figure  17.1. 


(Entry  INPRIN) 


Set  Flag 
To  Blank 


Buffer 

Printed? 


Print 

Buffer 


Save  Input  Line 
And  Flag  In 
Buffer.  Show 
Buffer  Not  Printed 


START 


(Entry  LGPRIN) 


Figure  17.1.  Subroutine  INPRIN  (Part  1 of  2) 


(Entry  ERPRIN) 


Buffer 

Printed? 


Print 

Buffer 


Show 

Buffer 

Printed 


RETURN 


3.7.5  Subroutine  INSPUT 


PURPOSE: 


ENTRY  POINTS: 


Create,  maintain  and  provide  values  from  the  input 
instruction  code  array. 

INSDEL,  INSFLS,  INSGET,  INSNIT,  INSPUT 


FORMAL  PARAMETERS:  INTAB:  Array  to  be  filled  or  used  to  fill  table 

INDEX:  Pointer  to  start  point  in  table  for  process 
LENTH:  Number  of  words  to  be  stored  or  retrieved 


COMMON  BLOCKS: 


C40,  INS,  OOPS 


SUBROUTINES  CALLED:  DLETE,  MODFY,  RETRY,  STORE 


CALLED  BY: 


Method: 


(IDS  utility  entry;  called  by  all  QUICK  modules) 


This  subroutine  process  differs  according  to  the  entry  point  called. 

INSNIT  Entry  Point 

This  entry  point  sets  the  number  of  tables  (INSTBS)  to  zero.  Also,  the 
array  for  table  reference  codes  (INSREF)  is  set  to  blanks. 

INSPUT  Entry  Point 

This  entry  point  enters  LENTH  elements  of  INTAB  in  the  Instruction  Code 
array.  INDEX  is  used  as  a pointer  and  is  incremented  prior  to  each  entry. 
Beginning  with  the  first  word  of  INTAB,  INDEX  is  incremented  and  the  table 
number  and  pointer  to  the  word  within  the  table  is  calculated  (each  table 
contains  100  words).  If  the  table  is  a previously  created  table,  the  sub- 
routine assures  that  the  desired  TABLEZ  table  is  in  C40.  Once  this  is 
done,  the  indicated  word  is  set  to  the  new  value  and  MODFY  is  called. 

If  the  desired  table  is  the  one  being  built  currently  the  new  value  is 
simply  entered.  If  the  desired  table  is  beyond  the  current  table,  the 
current  table  is  moved  into  the  TABLEZ  buffer,  STORE  is  called  to 
create  a new  table  and  the  resulting  reference  code  is  saved  in  INSREF. 
Finally,  the  new  value  is  stored  in  the  proper  place. 

INSFLS  Entry  Point 

This  entry  point  saves  the  last  table  in  the  buffer.  The  method  is  to 
simply  set  a switch  indicating  the  call  was  to  INSFLS  and  branch  to  the 
appropriate  part  of  the  INSPUT  code. 


* 


3.7.6  Subroutine  MODGET 


HffifgSfi: 

ENTRY  POINTS; 

FORMAL  PARAMETERS: 

| COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CAT.T.En  BY; 


Execute  modules 

MODGET 

None 

C35,  ERRCOM,  OOPS 
BANNER,  ENTMOD,  INSGET 
COP 


Method: 

First  INSGET  Is  celled  to  get  the  verb's  number.  This  number  Is  used  as 
an  index  to  the  module  link  table  (common  block  C35)  to  obtain  an  over- 
lay link  name.  This  name  (NEWMOD)  Is  compared  to  the  old  name  f)LDMOD).  If 
they  are  different,  BANNER  is  called  to  display  NEWMOD.  OLDMOD  Is  set 
to  NEWMOD.  System  routine  LLINK  Is  called  to  read  in  overlay  NEWMOD 
and  standard  module  entry  point  ENTMOD  is  called.  The  standard  error 
conditions  are  now  reset.  If  an  error  occurred  during  module  execution 
«an  error  message  is  produced.  Finally,  if  either  the  DATA  or  REPORT 
module  was  executed,  the  error  flag  is  reset  to  false. 

Subroutine  MODGET  is  Illustrated  in  figure  19. 


START 


Figure  19.  Subroutine  MODGET  (Part  1 of  2) 


PURPOSE: 

ENTRY  POINTS: 


Performs  IDS  functions 


I 


CLEANP, 
OPNIDS , 


CLZIDS,  DIRECT,  DLETE, 
RETRV,  STORE 


HEAD,  MODFY,  NEXTTT, 


FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


ARGUMENT:  Record  type  or  chain  name 
CIO,  C15,  C20,  C25,  C30,  C35,  C40,  C50 
ERPROC 

(IDS  utility  entry,  called  by  all  QUICK  modules) 


Method: 

The  entry  points  for  this  routine  fall  into  three  groups:  those  with 
no  argument:  CLZIDS,  OPNIDS,  DIRECT;  those  whose  argument  is  a record 
type  name:  DLETE,  MODFY,  RETRV,  STORE;  and  those  whose  argument  is  a 
chain  name:  HEAD,  NEXTTT. 

CLEANP.  CLZIDS.  OPNIDS  and  DIRECT 

These  entries  each  carry  out  a single  function.  CLEANP  dumps  altered 
pages  to  file  storage.  CLZIDS  closes  the  IDS  file.  OPNIDS  opens  the 
IDS  file  for  update.  DIRECT  retrieves  the  record  whose  binary  reference 
code  is  stored  in  CIO. 

DLETE.  MODFY.  RETRV  and  STORE 

For  each  of  these  entry  points  the  process  is  quite  similar.  The  input 
record  type  name  is  looked  up  in  a table  of  legal  record  type  names 
( REC-TYPE -TABLE ) . If  it  is  not  in  the  table  the  error  code  is  set  to 
'OOORRR'.  After  the  look-up,  the  subroutine  branches  to  the  appropriate*'* 
code  to  perform  the  requested  function.  In  some  cases  (see  notes  to 
figure  20)  the  requested  function  is  not  allowed  in  which  event  the  rror 
code  is  set  to  '000ILC1 . 


HEAD  and  NEXTTT 


For  each  of  these  entry  points  the  process  is  similar.  The  input  chain 
name  is  looked  up  in  a table  of  legal  chain  names  (CHAIN-NAME -TABLE) . If 
it  is  not  in  the  table,  the  error  code  is  set  to  '000CCC'.  After  the  look- 
up, the  subroutine  branches  to  the  appropriate  code  to  perform  the  requested 
function. 

After  any  of  the  above  entry  points  process  have  taken  place,  the  error 
code  is  checked.  If  an  error  has  occurred  ERPROC  is  called. 

Subroutine  QDATA  is  illustrated  in  figure  20. 
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CH-1 


Vfr’ 


4 t ». 


Figure  20.  Subroutine  QDATA:  Entry  OPNIDS  (Pert  1 of  9) 


START 


(Entry 

CLEANP) 


(Entry  CLZIDS) 


IDS  CLEAN  POINT 
Dump  Altered 
Pages  to  Data 
File 


EX  ITT 


START 


(Entry  DIRECT) 


Retrieve  IDS 
Record  Directly 
Using  Reference 
Code  Stored  in 
Common  Block  C16 


Move  Data  from 
Record  to 
Working  Storage 


^EXITT J 

Figure  20.  Subroutine  ODATA:  Entry  CLZIDS  and  DIRECT 
(Part  2 of  9) 
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(Entry  STORE) 


See  part  9 for  explanation  of  annotated  notes 

Figure  20.  Subroutine  QDATA:  Entry  STORE  (Part  3 of  9! 


mm 


START 


Set  BRANCH- 
VALUE  to  3 to 
Indicate  MODFY 


Set  BRANCH- 
VALUE  to  2 to 
Indicate  HEAD 


START 


Set  BRANCH- 
VALUE  to  4 to 
Indicate  DLETE 


Figure  20.  Bntrlee  HEAD,  MODFY,  and  DLETE 
(Part  8 of  9) 


- 


1 


Notes : 


1.  Process  Includes  all  code  In  Paragraphs  RBC -TAB-SEEK  through  RTS-  - 
END-LOOP. 

2.  Process  Includes  all  code  in  Paragraphs  RC -BRANCH  through  RC-X. 

3.  Label  Symbolizes  all  labels  where  XXXXXX  is  equal  to  the  appropriate 

Record  Type  name. 

4.  This  function  is  legal  for  all  Record  Types. 

5.  This  function  is  legal  only  for  the  following  Record  Types:  TGTHb, 

WPG PHD,  SRTYHD,  PNCHD,  DPCHD,  CM  PHD,  PAYHD,  WARHD,  WEPHD,  RCBHD, 
TARGET,  DCTHD,  SYNHD,  ADVHD,  TABLEZ,  RFPTHD,  REGHD,  TARNUM,  INDTHD, 
ASNTAB,  D IS PHD,  MODTAB,  NUMTBL,  TABLST. 

6.  This  function  is  illegal  for  the  following  Record  Types:  WPGPHD, 

SRTYHD,  PNCHD,  DPCHD,  CM PHD,  PAYHD,  REBHD,  DCTHD,  DCTTAB,  SYNHD, 

ADVHD,  RFPTHD,  REGHD,  TARNUM,  INDTHD,  ASNTAB,  D IS PHD,  SORTAB. 

7.  This  function  is  illegal  for  the  following  Record  Types:  TGTHD, 
WPGPHD,  SRTYHD,  PNCHD,  DPCHD,  CM PHD,  PAYHD,  WARHD,  WEPHD,  RCBHD, 
DCTHD,  SYNHD,  ADVHD,  RFPTHD,  REGHD,  TARNUM,  INDTHD,  ASNTAB, 

D IS PHD,  MODTAB,  NUMTBL. 

8.  Process  includes  all  code  in  Paragraphs  CHN-TAB-SEEK  through  CTS- 
END-LOOP. 

9.  Process  Includes  all  Code  In  Paragraphs  CN-BRANCH  through  CNB-F. 

10.  Label  symbolizes  all  labels  where  YYYYYY  is  equal  to  the  appropriate 

chain  name. 


I 


Figure  20.  (Part  9 of  9) 
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3.8  Subroutine  BOOT 

Create  and  update  organizational  data 
BOOT 


None 


CIO,  C15,  C20,  C30,  C35 

DCTFND,  HDFND,  HD PUT,  HEAD,  MNMFND,  MODFY,  NEXTTT, 
NUMFND,  RETRV,  RNMFND,  SEEKER,  STORE,  STRMAK 

INICOP 


Method : 

BOOT  reads  card  Images  which  instruct  it  as  to  what  actions  to  take. 

The  card  Images  are  in  sets  which  are  begun  by  an  introductory  adverb 
and  ended  with  an  END  card.  The  first  part  of  the  process  is  to  read  an 
adverb  (NEW INDEX,  RECORDTYP , INDEX,  DICTIONARY,  SYNTAX,  MODULE,  HEADER). 
| Each  adverb  causes  the  branch  IBR  to  be  set  to  a different 
1 value.  If  an  adverb  is  read  which  is  not  recognized  processing  ceases. 
The  method  used  for  each  adverb  is  different.  However,  each  card  image 
that  is  read  is  printed  after  any  action  is  taken  with  an  appropriate 
flag  (IND). 

NEW INDEX 

No  command  cards  follow  this  abverb.  The  action  taken  is  to  set  the 
CLASS  attribute  and  call  STORE  to  create  the  utility  table  and  index 
headers. 

RECORDTYP 

Each  card  Image  creates  a new  INDRCT  record.  The  process  is  to  call 
NUMFND  for  the  record  type  number  then  search  the  RCTYP  chain  for  a 
match.  If  a match  is  found,  IND  is  set  for  ignored  input.  If  no  match 
is  found,  IND  is  set  to  show  added  record  and  STORE  is  called  to  create 
an  INDRCT  record. 

INDEX 

Each  card  image  creates  a new  record  of  the  type  specified  in  the  first 
field  of  the  card  image. 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COHiON  BLOCKS: 
SUBROUTINES  CALLED: 

CALLED  BY: 


♦Main  routine  of  overlay  BOOTT. 
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INDMST  or  INDDET:  RNMFND  Is  called  for  the  record  type  n inhere  and  to 
check  the  validity  of  both  record  type  names.  SEEKER  is  then  called  on 
the  appropriate  chain  (IRMA ST  or  IRDET,  respectively)  to  look  for  a 
duplicate.  If  a duplicate  is  found  the  Ignored  flag  (IND)  is  set. 
Otherwise,  the  appropriate  attributes  are  set  and  STORE  Is  called. 

INDATR:  First  STRMAK  is  called  to  obtain  the  attribute  name.  Then  this 
name  is  checked  for  validity  by  DCTFND.  Next  the  ATRIB  chain  Is  queried 
by  SEEKER.  If  a match  is  found  IND  Is  set  to  Indicate  a change.  If  not 
it  Is  set  to  Indicate  an  add.  Now  MNMFND  Is  used  to  get  the  value  of 
the  attribute  type.  This  type  Is  used  to  determine  how  to  read  the 
default  and  range  fields.  Finally,  depending  upon  IND,  either  STORE 
or  MODFY  is  called. 

ALPHVL 


First  STRMAK  is  called  to  obtain  the  attribute  name,  and  the  name  is 
validated  by  DCTFND.  Next  SEEKER  is  used  to  find  this  attribute  on  the 
ATRIB  chain.  Then  SEEKER  is  used  to  check  the  VALIST  chain  for  a dupli- 
cate value.  Finally,  if  all  decks  are  correct,  STORE  is  called  to  add 
a ALPHVL  record. 

LINKER 


First  STRMAK  is  called  to  obtain  the  attribute  name  and  it  is  validated 
by  DCTFND.  Next  RNMFND  is  used  to  validate  the  record  type  name.  Next 
the  IALINK  chain  is  searched  by  SEEKER  for  a duplicate,  which,  if  found, 
causes  the  flag  (IND)  to  be  set  for  a change.  Then  MNMFND  is  called  to 
obtain  the  value  of  the  control  mnemonic.  Finally,  either  MODFY  or 
STORE  is  called  depending  upon  the  flag  (IND). 

DICTIONARY 


Each  card  image  creates  a new  entry  in  the  dictionary.  First  STRMAK  is 
called  to  obtain  the  input  value  for  the  word  to  be  entered  in  the  dic- 
tionary. Next  DCTFND  is  called  to  look  for  the  new  word  in  the  diction- 
ary. If  the  word  is  found  the  indicator  flag  (IND)  is  set  for  a change. 
If  neither  the  word  nor  its  tab  character  (tab  character  is  formed  from 
the  first  two  characters  of  the  word)  is  found,  STORE  is  called  to 
create  an  appropriate  tab  character  record  (DCTTAB) . Now  MNMFND  is 
called  to  set  the  word  type.  If  the  type  is  attribute  (Type-6)  NUMFND 
is  called  for  the  value,  and  the  address  and  MNMFND  is  called  for  the 
type  and  identifier  flag.  These  quantities  are  packed  into  WORDVL.  If 
not  an  attribute,  NUMFND  is  called  for  WORDVL.  Finally,  either  MODFY  or 
STORE  is  called. 
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SYNTAX 


Each  card  Image  creates  a new  record  of  the  type  specified  In  the  first 
field  of  the  input  card. 

SYNVRB;  STRMAK  is  called  to  obtain  the  verb  and  DCTFND  is  used  to  vali- 
date it.  SEEKER  is  then  used  to  look  for  a match  on  the  VERB  chain  and 
IND  set  to  change  if  one  is  found.  Next  MNMFND  is  called  to  obtain  the 
value  of  the  clause  switch  (ICSW).  Finally,  either  MODFY  or  STORE  is 
called. 

PRMADV:  STRMAK  is  called  to  obtain  the  adverb  name  and  DCTFND  is  called 
to  validate  it.  SEEKER  is  then  used  to  look  for  a match  on  the  ADVADV 
chain  and  the  flag  set  to  change  if  one  is  found.  Next  MNMFND  is  called 
for  the  clause  type  (IXTYP)  and  the  phrase  type  (ILTYP) . Finally,  either 
MODFY  or  STORE  is  called. 

ADVEIM:  STRMAK  is  called  to  obtain  the  adverb  name  and  DCTFND  is  called 
to  validate  it.  Next  SEEKER  is  called  to  find  the  adverb  on  the  ADVADV 
chain.  MNMFND  is  now  used  to  find  the  element's  type.  If  the  type  is 
special  word  (Type-5),  or  operator  (Type-1)  DCTFND  is  used  to  find  the 
value.  Operators  are  also  checked  against  a list  of  special  characters. 
Finally,  STORE  is  called  for  the  ADVEIM  record. 

SYNCLZ : First  STRMAK  is  called  to  obtain  the  verb  and  DCTFND  is  called 
to  validate.  Similarly,  STRMAK  and  DCTFND  are  called  for  the  adverb. 

Next  SEEKER  is  used  to  assure  that  no  duplicate  SYNCLZ  record  exists 
and  then  is  used  to  find  the  adverb  on  the  ADVADV  chain.  Finally,  STORE 
is  called. 

MODULE 

Each  card  Image  calls  for  an  entry  to  the  module  link  table.  This  table 
is  retrieved  at  the  first  call  to  this  section  but  is  not  modified  until 
BOOT  is  terminating  (see  figure  21,  statement  64).  For  each  card  image 
STRMAK  ia  called  to  obtain  the  verb  name  and  DCTFND  is  used  to  get  the 
verb  number.  The  link  name  is  then  stored  in  LINKS  indexed  by  the  verbs 
number.  A valid  card  for  this  section  is  always  marked  as  a change. 

HEADER 

Each  card  image  calls  for  a new  header  to  be  created.  First,  RNMFND  is 
called  to  validate  the  record  type  naae.  Next,  HDFND  is  called  to  make 
sure  no  duplicate  exists.  If  the  record  type  naoe  is  TGTHD,  NUMFND  is 
called  to  set  ICLASS.  Finally,  HDPUT  Is  called  to  create  the  header. 

Subroutine  BOOT  is  illustrated  in  figure  21. 
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PURPOSE:  Processes  long  strings 

ENTRY  POINTS;  LNGSTR 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  IPQT,  STRING,  SYMBOL 

SUBROUTINES  CALLED:  TAB INS,  LGPRIN , ERPRIN 

CAELEE  BY;  ERRFND 

Method: 

The  delimiter  which  caused  the  call  Is  saved.  Thereafter,  the  process 
continues  to  scan  the  Input  card  Image  one  character  at  a time  until 
an  identical  character  to  the  delimiter  Is  encountered.  With  each 
character  retrieved,  the  character  count  is  incremented.  If  it  exceeds 
120,  a warning  message  is  printed  and  the  remainder  of  the  string  Ignored. 
Each  character  is  added  to  the  next  position  of  ALPHA  and  if  ALPHA  is 
full  it  is  stored  in  ALPHSV. 

When  all  characters  have  been  read,  the  length  of  the  string  is  checked. 

If  it  is  less  than  or  equal  to  12,  the  string  is  treated  as  an  alphabetic, 
stored  in  ALPHA  and  TYPE  is  set  to  9.  Otherwise,  a symbol  containing  2 in 
bits  30-35  and  the  character  count  in  bits  0-29  is  stored  by  TAB INS  and 
an  alphabetic  constant  and  symbol  are  stored  for  each  element  of 
ALPHSV  « 


Subroutine  LNGSTR  is  Illustrated  in  figure  29. 
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Method 


various  switches.  If  the  string  Is  one  the  types  of  strings  expected, 
the  appropriate  switches  are  reset.  The  following  switches  and  counters 
are  used  by  SYNTAX: 

BETWEN  - True  when  processing  BETWEEN  relation 
BLPRCT  - Boolean  parenthesis  level  count 

BOLTYP  - True  when  expecting  relational  phrase,  left  parenthesis 
or  NOT  (boolean  clause  only) 

BOOL  - True  when  clause  is  boolean 

CONTEQ  - True  when  an  equals  relation  is  being  continued  in  a 
boolean  clause 

ELEMNT  - True  when  phrases  are  elemental 
ELRT  - 1 - if  elemental  non-boolean  clause 
2 - if  elemental  boolean  clause 
ENDCLZ  - True  If  clause  may  end 
ENDCOM  - True  if  sentence  may  end 
EQUALS  - True  when  processing  EQUALS  relation 
INCLZ  - True  when  processing  a clause 
INCOM  - True  when  processing  a sentence 
LIKE  - True  when  processing  a LIKE  relation 
FHPNT  - Relational  phrase  branch 

1 - expecting  operation  unless  Inside  collection 

2 - expecting  value  or  collection 

3 - check  for  equal  and  between  continuation 
PHPRCT  - Relational  phrase  parenthesis  count 

RELPHR  - True  when  processing  a relational  phrase 
RESTRC  - True  when  phrase  type  Is  restricted  relational  (EQUALS  or 
LIKE) 

SINGLE  - True  when  clause  type  Is  single 
SNGCT  - Count  of  phrases  for  single  type  clause 


VALCT  - Value  element  branch 

1 - expecting  end  of  element  or  OF 

2 - expecting  Identifying  attribute 

3 - expecting  alphabetic  or  numeric  constant 
VALEL  - True  If  processing  value  element 

VALQE  - True  If  processing  value  expression 

VALTYP  - True  when  expecting  new  value  element  or  left  parenthesis 
VLPRCT  - Value  expression  parenthesis  count 

Processing  proceeds  as  follows: 

First  the  string  is  checked  to  see  If  It  Is  a verb,  If  not,  branch  to 
statement  5 (see  figure  30).  If  so  INCOM  is  checked.  If  INCOM  Is  true 
but  ENDCOM  is  false  an  error  has  occurred.  Otherwise  INCOM  Is  set  to 
false  and  the  subroutine  exists.  If  INCOM  is  false,  the  VERB  chain  Is 
searched  to  find  a match.  When  the  match  is  found  INCOM  and  ENDCOM  are 
set  to  two  and  INCLZ  Is  set  to  false.  If  the  clause  switch  Indicates 
that  the  verb  must  have  a clause  (ICSW*1) , ENDCOM  is  set  to  false. 

Statement  5 (figure  30) 

If  the  string  is  not  an  adverb,  a branch  is  made  to  statement  19.  If 
it  is  an  adverb  INCOM  Is  checked  and  If  false  an  error  has  occurred. 
Next,  If  INCLZ  Is  true  but  ENDCLZ  Is  false  an  error  has  occurred.  Next, 
the  CLAUSE  chain  is  searched  to  see  if  this  adverb  Is  matched  to  the 
current  verb.  If  It  is  HEAD  is  called  to  relieve  the  adverb's  record 
and  the  clause  and  phrase  type  (IXTYP  and  ILTYP)  are  packed  Into  the 
adverb' 8 value.  Now  various  switches  are  set  depending  on  the  clause 
type  (IXTYP).  If  boolean,  set  SINGE  to  false,  BOOL  to  true,  BLPRCT 
to  zero  and  BOLTYP  to  true.  If  sequence,  set  SINGLE  and  BOOL  to 
false.  If  single  set  SINGE  to  true,  BOOL  to  false,  SNGCT  to  zero. 

If  null  set  INCLZ  to  false  and  ENDCLZ  and  ENDCOM  to  true.  For  all 
but  the  last,  set  INCLZ  to  true  and  ENDCLZ,  ENDCOM  and  VALQE  to  false 
and  branch  on  phrase  type  (ILTYP).  For  relational  phrases  set  RESTRC 
to  false,  for  restricted  phrases  set  RESTRC  to  true,  for  both  set 
RELPHR,  ELEMNT,  EQUALS,  LIKE,  BETWEN  and  CONTEQ  to  false,  and  PHPRCT  to 
zero.  For  elemental  phrases  set  ELEMNT  to  true. 

Statement  19  (figure  30) 

At  this  point  refer  to  the  flow  chart,  figure  30  as  processing  Is  best 
illustrated  therein.  However,  some  sections  that  are  of  particular  note 
follow. 

Statement  52  (figure  30) 

Here  many  relational  phrases  have  ended.  The  LIKE  phrase  has  one  more 
element- -the  value  for  the  identifiers  attribute.  The  BETWEEN  phrase 
may  have  an  optional  'AND' . After  this  or  without  It  the  BETWEN  switch 
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SECTION  5.  EDITDB  MODULE 


5.1  General  Purpose 

The  EDITDB  module  performs  two  similar  but  quite  distinct  functions. 
First,  it  performs  the  standard  consistency  checks  as  outlined  In  table 
13  In  Users  Manual,  Volume  I.  Second,  It  will  perform  any  set  of  non- 
standard edits  desired  by  the  user.  This  second  function  allows  the 
user  to  check  the  validity  of  data  attributes  not  covered  by  the  stan- 
dard edits  or  make  certain  that  attributes  fall  within  any  desired  lim- 
its other  than  those  listed  in  the  directory. 

5.2  Input 

The  input  to  EDIT  consists  of  the  cards  containing  the  generalized  text 
english  conmands  as  described  in  the  Users  Manual.  The  data  base  can 
be  in  any  stage  completion  after  it  has  been  initialized. 

5.3  Output 

EDIT  will  create  no  tapes  or  new  data  base  records. 

5.4  Concept  of  Operation 

The  execution  of  EDIT  always  performs  consistency  checks  and  determines 
counts  of  various  subsections  of  the  data  base  to  ensure  that  limita- 
tions as  dictated  by  the  QUICK  system  are  not  exceeded.  In  addition, 

EDIT  performs  nonstandard  checks  as  introduced  by  the  user  through  the 
WHERE,  FIELDS  or  WITH  clauses.  These  generalized  clauses  allow  for  spe- 
cial subsections  of  the  data  base  to  be  checked  against  ranges  for  val- 
idity as  directed. 

EDIT  consists  of  four  overlays  each  of  which  conducts  a special  function. 
The  main  objectives  are  met  within  these  overlays. 

5.5  Identification  of  Subroutine  Functions 

5.5.1  Subroutine  COUNTS.  This  subroutine  (or  overlay)  queries  major  por- 
tions of  the  defined  data  base  and  produces  summary  counts  of  various 
collections  contained  within  the  data.  The  processors  to  be  executed 
within  the  QUICK  system,  uses  local  dimensioned  arrays  for  efficient 
processing  and,  hence,  certain  limitations  must  be  met.  This  subroutine, 
then,  informs  the  user  if  certain  subsections  (geography,  weapon  types, 
and  groups,  etc.)' exceeds  any  of  these  constraints.  The  code  counts 
entries  in  a straightforward  fashion. 
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5.5.2  Subroutine  GENTDIT.  This  subroutine  (or  overlay  link)  Is  exe- 
cuted only  if  adverbs  other  than  ONIRINTS  appears  within  the  input  com- 
mand. Its  function  is  purely  to  drive  the  other  subroutines  within 
overlay  link  as  directed  by  the  type  of  input  clause. 

5.5.3  Subroutine  BUILDTAB.  The  edit  scheme  is  constructed  within  this 
subroutine.  An  edit  scheme  is  a set  of  instructions  that  inform  neces- 
sary subroutines  how  (or  in  what  manner)  the  data  base  is  to  be  queried. 
The  philosophy  behind  this  scheme  is  similar  to  that  outlined  for  re- 
trieval search  schemes  (see  section  4.4). 

5.5.4  Subroutine  NORMAL.  This  subroutine  is  the  third  overlay  link 
within  EDIT  and  its  function  is  simply  to  load  default  edit  schemes. 

5.5.5  Subroutine  PROCEDIT.  Edit  schemes,  either  default  or  nonstandard, 
are  executed  by  this  subroutine  (or  overlay). 

5.6  Edit  Internal  Common  Blocks 

The  internal  comnon  blocks  defined  for  this  module  are  outlined  in 
table  17. 
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ABSTRACT 


The  computerized  Quick-Reacting  General  War  Gaming  System  (QUICK)  will 
accept  input  data,  automatically  generate  global  strategic  nuclear  war 
plans,  provide  output  summaries,  and  produce  tapes  to  simulator  subsys- 
tems external  to  QUICK.  QUICK  has  been  programmed  in  FORTRAN  for  use 
on  the  CCTC  HIS  6000  computer  system. 

The  QUICK  Maintenance  Manual  consists  of  four  volumes:  Volume  I,  Data 
Management  Subsystem;  Volume  II,  Weapon/Target  Identification  Subsystem; 
Volume  III,  Weapon  Allocation  Subsystem,  Volume  IV,  Sortie  Generation 
Subsystem.  The  Maintenance  Manual  complements  the  other  QUICK  Computer 
System  Manuals  to  facilitate  application  of  the  war  gaming  system.  This 
volume.  Volume  I in  two  parts,  provides  the  programmer/analyst  with  a 
technical  description  of  the  purpose,  functions,  general  procedures,  and 
programming  techniques  applicable  to  the  modules  (programs)  and  subrou- 
tines of  the  Data  Management  subsystem.  Companion  documents  are: 

a.  USERS  MANUAL 

Computer  System  Manual  CSM  UM  9-77,  Volume  I 

Computer  System  Manual  CSM  UM  9-77,  Volume  II 

Computer  System  Manual  CSM  UM  9-77,  Volume  III 

Computer  System  Manual  CSM  UM  9-77,  Volume  IV 

Provides  detailed  instructions  for  applications  of  the  system 

b.  TECHNICAL  MEMORANDUM 
Technical  Memorandum  TM  153-77 

Provides  a nontechnical  description  of  the  system  for  senior 
management  personnel 
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6.4.2  Utility  Tablaa.  The  tub routine  TABMNT  creates,  neinteins,  end 
deletes  a set  of  utility  Cables.  These  are  arrays  which  TABMNT  can  keep 
internally  for  a n»«<mmn  of  100  words.  If  more  space  is  required  for 
the  table,  the  current  100  words  are  moved  into  common  block  C40  and  a 
TABLEZ  record  created.  When  data  is  desired  from  a particular  table, 
an  index  is  used  to  determine  which  set  of  100  words  contains  the 
desired  data.  The  appropriate  TABLEZ  record  is  retrieved  if  necessary 
and  the  data  moved  from  C40  to  internal  storage.  TABMNT  can  maintain 
up  to  five  utility  tables  each  of  which  can  contain  a maximum  of  1,000 
words.  The  tables  are  identified  by  a number  from  one  to  five  (i.e., 
•utility  table  1').  Both  DESIGN  and  ALTER  use  these  tables  to  pass 
clauses  to  DSPMAK.  PRINT  uses  the  tables  to  build  a new  WHERE  clause 
and  to  retain  headers^jsm— ^ — A^^rlnt  scheme. 

6.5  Identification  of  Subroutine  Functions 

6.5.1  Subroutine  DESIGN.  This  subroutine  (or  overlay)  carries  out  the 
function  of  building  a new  set  of  display  specifications  from  scratch. 
First  the  DISPLAY  clause  Is  read  and  the  display  table  set  for  construc- 
tion. The  SETTING  clause  is  used  to  set  values.  Each  DEFINE  is  scanned 
for  errors,  and  is  stored  in  a table.  The  WHERE,  SORT,  and  FORMAT 
clauses  are^also  scanned  for  errors  and  saved  (see  figure  79). 

6.5.2  Subroutine  ALTER.  This  subroutine  (or  overlay)  makes  alterations 
to  old  displays  or  constructs  a new  display  based  upon  an  old  one. 

First  the  DISPLAY  clause  Is  used  to  find  the  old  display.  Then  each 
clause  of  the  old  display  Is  either  saved  In  the  utility  tables  or 
replaced  by  a new  clause  which  has  been  input.  The  old  FORMAT  clause 
may  have  portions  modified  according  to  user  instructions.  Finally, 
the  new  display  table  is  set  up  for  creation  or  the  old  one  deleted 
and  reset  depending  upon  the  DISPLAY  clause  option  selected  (see  figure 
80). 

6.5.3  Subroutine  DSPMAK.  This  subroutine  takes  the  utility  tables 
built  by  either  the  DESIGN  or  ALTER  subroutines  and  uses  them  to  con- 
struct a display.  First  all  clauses  are  scanned  for  attributes.  Then 
the  attributes  collected  are  used  to  build  a retrieval  scheme.  (For 
details  of  this  process  see  section  4.4.)  DEFINES  are  placed  in  proper 
execution  order  and  their  execution  tables  (table  18,  elements  2-7)  are 
built.  The  WHERE  clause  Is  scanned  for  DEFINE  variables  and  altered 
accordingly.  The  sort  scheme  and  print  scheme  are  now  built.  Finally, 
all  the  constructed  elements  are  stored  in  the  data  base  as  a display 
table  (see  figure  81). 

6.5.4  gyhr-pnUpa  PRINCE.  This  subroutine  prints  a specified  display. 
First  the  DISPLAY  clausa  Is  used  to  find  the  desired  display  table  and 

ithe  various  schemes  and  tables  are  read  from  the  display  table,  if  the 
input  display  name  is  "DIRECTORY"  the  PRNATD  subroutine  is  called  to 
print  the  directory.  If  a new  WHERE  clause  has  been  input  it  replaces 
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Step  One 


Figure  79.  Subroutine  DESIGN  Macro  Flow 
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aay  old  one.  The  retrieval  scheme  Is  used  to  build  a file  on  the  desired 
information.  This  file  is  then  sorted  if  a sort  has  been  requested. 
Finally,  the  print  scheme  is  executed  to  produce  the  desired  report  (see 
figure  82). 


Cmbbd  blocks  which  are  used  Internally  by  the  REPORT  module  are  die 
played  in  table  19. 


PURPOSE: 


To  print  a display 


ENTRY  POINTS 


PRINCE 


FORMAL  PARAMETERS 


None 


COMMON  BLOCKS 


CIO,  C15,  C20,  C30,  DEFVAR,  DSPHED,  IDPT,  INS 
NONPAG,  OOPS,  PAGPAG,  PSCOM,  SCHEME,  SORSCH, 
ZEES 


DSPGET,  GETNXT,  HDFND,  HEAD,  INSFLS,  INSGET 
INSPUT,  NEXTTT,  PRNATD,  PSNXT,  PSPUT,  PSREC 
PSRWD,  RETRV,  TABMNT,  UNCODE,  XDEFN,  XSORT, 
XWHERE 


ENTMOD  (REPORT) 


The  input  is  s canned  for  the  DISPLAY  clause  and  the  display  name  is 
found  (if  no  DISPLAY  clause  is  provided  the  name  ' QTEMPORARYQQ'  is 
used).  The  DSPLAY  chain  Is  searched  for  the  appropriate  display  table. 
Next,  subroutine  DSPGET  is  called  to  retrieve  the  display  table  header, 
define  tables^^^ ^ ^ m ^^^^ctions  are  stored  in  utility  table  1) 
attribute*^— 1-70  in  table  18)  (see 
figure  109).  If  the  display  name  is  "DIRECTORY*' , subroutine  PRNATD  is 
called  and  processing  ends. 


The  input  is  now  scanned  for  a WHERE  clause.  If  none  is  found  the  old 
clause  is  retrieved  by  DSPGET  and  stored  via  INSPUT  in  the  input  ins true 
tlon  tables  (this  clause  is  stored  beginning  at  the  next  full  table 
after  those  already  in  use) . If  a new  WHERE  clause  is  found  it  is 
stored  via  TABMNT  in  utility  table  2.  In  the  storing  process  its  alpha- 
betic instructions  which  referenced  DEFINE  names  are  converted  as  per 
step  six,  section  6.10.  Also,  whatever  values  are  input  for  the  CLASS 
and  SIDE  attributes  are  saved.  When  the  WHERE  clause  is  completely  pro- 
cessed, it  is  moved  from  utility  table  2 into  the  input  instruction 
tables  (see  figure  110). 


★Main  routine  of  overlay  link  RPTPRN 


'Print  Erro 
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Display  1 
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RETURN 
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Figure  109.  Subroutine  PRINCE:  Step  One  (Part  1 of  3) 


6.11.2  Subroutine  PRNATD 


PURPOSE:  To  print  the  attribute  directory 

ENTRY  POINTS;  PRNATD 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  CIO,  C30 

SUBROUTINES  CALLED:  HEAD,  NEXTTT 

CALLED  BY:  PRINCE 

Method: 

After  heading,  the  ATRIB  chain  la  cycled.  For  each  record  retrieved, 
the  attribute  IATYPE  Is  used  to  establish  the  mode  (real.  Integer, 
alphabetic,  and  alphabetic  with  a list).  For  all  but  list  alphabetics, 
a line  Is  then  printed  displaying  the  pertinent  information. 

For  list  alphabetics,  the  list  of  values  is  retrieved  from  the  VALIST 
chain  and  displayed  along  with  the  remainder  of  this  information. 

Subroutine  PRNATD  is  Illustrated  In  figure  114.1. 
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Figure  114.1.  Subroutine  PRNATD  (Part  1 of  4) 
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Figure  114.1.  (Part  2 of  4) 
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SECTION  8.  EXTERNAL  INTERFACE  MODULE  (EIM) 


8.1  Purpose 

Hie  purpose  of  the  EIM  Is  to  create  output  tapes/flies  which  are  designed 
to  be  Input  to  external  processors. 

8.2  Inp»t 

The  output  files  to  be  built  each  have  the  precondition  that  all  data 
necessary  for  the  file  be  present  In  the  data  base. 

8.3  Output 

The  output  of  EIM  depends  upon  the  verb  and  the  FILE  clause.  BUILD  FILE 
TABLE  produces  a single  tape  with  six  subsections.  The  format  of  this 
tape  appears  In  table  21.  BUILD  FILE  SIDAC  produces  two  tapes,  one  con- 
taining BLUE  targets,  one  containing  RED  targets.  The  format  of  the  two 
tapes  appears  In  table  22.  BUILD  FILE  OTHER  produces  a single  tape  or 
file  whose  format  and  contents  are  specified  by  the  user. 

| The  PLOTIT  and  PLOTDATA  verbs  produce  two  tapes.  One  is  a tape  suitable 
for  the  CALCOMP  plotter.  The  other  contains  information  concerning  all 
points  which  were  not  added  to  the  plot  tape  owing  to  their  being  out  of 
range  of  the  plot  size. 

8.4  Concept  of  Operation 

The  EIM  first  determines  which  verb  caused  the  call.  If  the  verb  was 
I PLOTIT  or  PLOTDATA,  the  appropriate  routine  is  executed.  If  the  verb 
was  BUILD,  the  FILE  clause  is  found  along  with  the  special  word  within 
the  clause.  If  the  special  word  is  SIDAC  or  TABLE  the  appropriate  sub- 
routines are  called  to  produce  the  named  files.  If  the  special  word  is 
OTHER,  the  BLDOTH  subroutine  is  called  to  produce  the  named  files.  If 
the  special  word  is  OTHER,  the  BLDOTH  subroutine  is  called  to  produce 
the  input  defined  file. 

8.5  Identification  of  Subroutine  Functions 

8.5.1  Subroutine  SIDAC.  This  subroutine  produces  the  data  base  assess- 
ment tapes  (DBASSESS).  A preset  retrieval  scheme  for  all  BLUE  targets 
is  set  up  and  executed.  Each  target  retrieved  is  written  out  in  a 
modified  JAD  format.  When  ell  BLUE  targets  have  been  output,  the  scheme 
is  modified  for  RED  targets  and  the  RED  targets  are  written  onto  a sep- 
arate tape. 
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Table  21 . BUILD  FILE  TABLE  Output  File  Formats 
(Part  1 of  5) 


mm.  W 

Column  Meaning 

1-8  'FITARGET' 

9 Side:  1 for  Blue;  2 for  Red 

10-14  Line  Count,  numeric 

15  Blank 

16-20  DESIG,  alphabetic . 

21-24  Blank 

25-31  Latitude  (LAX),  degrees,  minutes,  seconds 
32-39  Longitude  (LONG),  degrees,  minutes,  seconds 
40  B lank 

41-46  NAME,  alphabetic 

47-50  World  Area  Code  (WACNO) , alphabetic 

51-55  Bomber  Encyclopedia  Number  (BENO) , alphabetic 

56  Blank 

57-61  Category  (CATCODE) , numeric 

62-63  Country  Location  (CNTRYL),  alphabetic 

64-69  Major  Complex  Number  (MAJOR),  numeric 

70-71  TASK,  alphabetic 

72-76  Index  Number  (INDEXNO),  numeric 

77  Blank 

78-80  Complex  Number  (IC0MPL),  numeric 


■gH|| 


8.5.2  Subroutine  TABLE.  This  subroutine  produces  the  table  file.  The 
following  tables  are  produced: 

o Target  list 

o Vehicle  characteristics  list 
o Weapon  characteristics  list 
o Missile  base  list 
o Bomber  base  list 
o Offensive  recovery  base  list 

For  each  list  a preset  retrieval  scheme  is  executed  and  the  records 
retrieved  are  written  onto  the  output  tape. 

8.5.3  Subroutine  BLDOTH.  This  subroutine  builds  an  output  file  accord- 
ing to  user  specified  formats.  This  option  Is  very  similar  In  concepts 

to  the  REPORT  module.  First,  all  input  clauses  are  scanned  for  attributes 
and  a retrieval  scheme  is  built.  Next,  all  DEFINES  are  placed  in  proper 
execution  order  and  DEFINE  variable  execution  tables  are  built.  Next, 
the  WHERE  clause  is  scanned  for  DEFINES  and  altered  to  handle  them  prop- 
erly. The  sort  scheme  is  now  created.  Next,  the  retrieval  scheme  is 
executed  and  a file  built  of  the  resultant  records  and  this  file  is 
sorted.  Finally,  the  FORMAT  clause  is  executed  to  produce  the  desired 
file  (see  figure  116). 

8.5.4  Subroutine  PLOTDATA.  This  subroutine  builds  an  output  plot  tape. 
Four  types  of  geographic  data  may  be  plotted: 

o Penetration  corridors 
o Depenetration  corridors 
o Refuel  points 
o Recovery  bases 

For  each  desired  set  of  data  a preset  retrieval  scheme  is  used  to 
retrieve  the  appropriate  data.  For  each  data  record  retrieved,  the 
coordinates  (LAT,  LONG)  are  converted  and/or  scaled  to  the  desired  map 
characteristics  and  are  processed  for  the  plotter. 

8.5.5  Subroutine  PLOTIT.  This  subroutine  builds  an  output  plot  tape. 

The  plots  produced  are  of  bomber  or  tanker  sorties.  User  selected  sor- 
ties are  retrieved  and  their  events  are  plotted  in  sequence  with  special 
symbols  used  to  distinguish  events  (see  CSM  UM  9-77,  Volume  I). 

8.6  Common  Blocks 

The  comon  blocks  Internal  to  EIM  are  listed  in  table  23. 
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Table  23.  EIM  Internal  Conmon  Blocks  (Part  1 of  4) 


BLOCK 


ATLST 


DEFNMZ 


DSPFRM 


EVENTS 


ATNUMB(IOO) 

ATADD(IOO) 

ATTYP(IOO) 

ATRA(IOO) 

ATRB(IOO) 

NUMAT 

DFNAME(IOO) 

DFPNT(IOO) 


DEFVAR  VARXX(IOO) 


FORMAR(50) 

IFPNT 

IFLNG 


LAUNH 

LAUNB 

LEREFUEL 

LOCLATTR 

LAUNASM 

LAUNDCOY 

LANDHO 


MISSATTR 

LEGDOG 

LABORT 

LENTEREF 


Provides  comnunlcatlon  with  the  ATFNDR 
utility  subroutine 

Attribute's  identifying  number 

Attribute's  address 

Attribute's  mode  (-1,  Integer,  =2, 
alphabetic,  *3,  floating  point) 

Attribute's  lower  limit 

Attribute's  upper  limit 

Nixnber  of  attributes 

DEFINE  variable  name 

Points  to  DEFINE  clause  in  the  Instruc- 
tion code 

Value  of  DEFINE  variable 

Provides  communication  with  FORMAK 
utility  subroutine 

Format  being  constructed 

Pointer  to  next  character 

Number  of  words  used 

Provides  numeric  identification  for 
sortie  events.  Block  Is  data  preset 

Missile  launch  (set  to  1) 

Bomber  launch  (set  to  2) 

Refuel  event  (set  to  4) 

Local  attrition  (set  to  8) 

Launch  ASM  (set  to  14) 

Launch  decoy  (set  to  15) 

Land  bomber  (set  to  16) 

Change  altitude  (set  to  17) 

Missile  attrition  (set  to  9) 

Dogleg  (set  to  20) 

Abort  bomber  (set  to  13) 

Enter  refuel  area  (set  to  11) 


Table  23.  (Part  2 of  4) 


BLOCK 

ARRAY  OR  VARIABLE 

DESCRIPTION 

EVENTS 
(cont. ) 

LEAVEREF 

Leave  refuel  area  (set  to  11) 

IGOHI 

Go  high  (set  to  18) 

IGOLO 

Go  low  (set  to  19) 

ITIME 

Change  time  (set  to  10) 

KSMTGT 

ASM  on  target  (set  to  0) 

INCRT 

INCRT 

Pen  change  time  Increment 

PLNTAPE 

KPL(90) 

Sortie  event  place  code 

JTP(90) 

Sortie  event  identifier  code 

HLA(90) 

Sortie  event  latitude 

HLO(90) 

Sortie  event  longitude 

IWH(90) 

Sortie  event  warhead  Index 

CMT(90) 

Sortie  event  cumulative  time 

MHLOW(2) 

Sortie  go  low  events 

MHHI(2) 

Sortie  go  high  events 

MYGROUP 

Sortie  group  number 

MYCORR 

Sortie  corridor  number 

IOUTSRT 

Sortie  identification  number 

LTOT 

Number  of  sortie  events 

LPLAN 

Number  of  planned  events 

PLTARRYS 

This  block  is  used  to  store  sortie 
data  to  be  produced  at  one  time 

ILOW 

Index  to  next  available  entry  in 
arrays 

SUBHLA(202) 

Event  latitudes 

SUBHLO(202) 

Event  longitudes 

SUBJTP(200) 

Event  codes 

SUBKPL(200) 

Event  place  codes 

IWARHD(200) 

Event  warhead  indexes 

CTIME(200) 

Cumulative  time  to  event 

MYGROUP (10) 

Sortie  group  numbers 

MYCORRI(IO) 

Sortie  corridor  numbers 
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Table  23 


DESCRIPTION 


ARRAY  OR  VARIABLE 


BLOCK 


PLTARRAYS  IOUTSORT(IO) 
(cent-)  IBEG(IO) 

IEND(IO) 

MHMINA(IO) 

MHMAXA(IO) 


Sortie  Identification  number 
Beginning  of  sortie  in  event  arrays 
End  of  sortie  in  event  arrays 
First  go  low  event  in  sortie 
First  go  high  event  in  sortie 


Project  type  (set  to  0) 

Indicator  of  plot  direction  (+1  for 
counter  clockwise,  -1  for  clockwise) 

Longitude  of  origin 

Latitude  of  origin 

Angle  between  meridian  and  X-axis 

Standard  parallel  closest  to  equator 

Standard  parallel  closest  to  pole 

Fractional  part  of  log  for  PHI1 

Fractional  part  of  log  for  PHI2 


MERCAT 

IDIREC 


PLTPRO 


FLMDAO 


PH  10 


THETAO 


A1L10 

A2L10 


Plot  size  indicator 

-0  for  50  x 40 

-1  for  20  x 20 

-2  for  10  x 10 


Length  of  X-axis  in  Inches 
Length  of  Y-axis  in  inches 
Number  of  plots  per  page 
Ratio  of  world  units  to  plot  units 


XAXLEN 


YAXLEN 


FACTOR 


Switch  to  control  optional  print 
■True,  produce  print 
■False,  do  not  produce  print 


PRINON 


PRINSP 


Used  to  conmnlcate  with  PSREC  utility 
Body  of  print/sort  record 
Number  of  words  in  record 


RECORD (100) 
RECLEN 


Table  23.  (Part  4 of  4) 


BLOCK 

ARRAY  OR  VARIABLE 

DESCRIPTION 

RTLST 

Used  to  coBBRinicate  with  ATFNDR  utility 

RTLIST(IOO) 

List  of  record  type  numbers  for  retrieval 

NUMREC 

Number  of  record  types  in  list 

HDREC 

Record  type  name  of  primary  header 

HCLASS 

CLASS  value  of  primary  header 

HSIDE 

SIDE  value  of  primary  header 

HOPT 

CLASS/SIDE  option  for  scheme 

JHDR 

Record  type  number  of  primary  header 

SCHEME 

POINT 

Pointer  to  current  Instruction  of 
retrieval  scheme 

SCHEME (200) 

Retrieval  scheme  (see  UM  9-77,  Vol.  I, 
section  5. 3. 2. 4) 

SLIST 

NLIST 

Number  of  sorties  In  list 

LIST (600) 

List  of  desired  sortie  numbe-s 

SORSCH 

SRTSCH(IOO) 

Sort  scheme  (see  section  6.10) 

TAPES 

PLOTTA 

Logical  unit  number  for  plot  tape 

PIECTA 

Logical  unit  number  for  tape  for 
nonplotted  points 

XMEDGE 

XMEDGE 

Map  edge 

XLL 

X-coordlnate  of  last  point 

YLL 

Y-coordlnate  of  last  point 

XL 

X-coordlnate  of  point  to  be  plotted 

YL 

Y-coordlnate  of  point  to  be  plotted 

XWEDGE 

Converted  value  for  latitude  of  origin 

BANGL 

Converted  value  for  longitude  of 
origin 

ZEES 

Used  Internally  for  core  position  only 

ZA\ 

r 

ZB  1 

ZC  > 

ZD  l 

Equivalent  to  output  array  from 

INSGET 

ze) 
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8.7  Subroutine  ENTMOD 


PURPOSE: 

ENTRY  POINTS: 


FORMAL  PARAMETERS; 
COMMON  BLOCKS: 


Method: 


Entry  subroutine  for  EIM 

ENTMOD  (first  subroutine  celled  when  overlay  EIM 
Is  executed) 

None 

OOPS,  PRINSP 

BLDOTH,  INSGET,  PLOTDA,  SIDAC,  TABBLE 
MODGET 


First  the  Input  is  scanned  for  the  ONPRINTS  adverb  and  If  found  the 
PRINON  switch  Is  set  to  true.  Next,  the  verb  Is  retrieved.  If  It  Is 
PLOTDATA  the  overlay  link  and  PLOTDA  are  executed.  If  the  verb  Is 
PLOTIT  the  overlay  link  for  PLOTIT  Is  executed.  If  the  verb  Is  BUILD, 
the  FILE  clause  is  found  and  the  special  word  checked.  If  it  is  TABLE, 
the  overlay  for  TABBLE  is  called.  If  it  is  SIDAC,  the  overlay  link  for 
SIDAC  is  called.  If  it  is  OTHER  the  overlay  link  for  BLDOTH  is  called. 

Subroutine  ENTMOD  (EIM)  is  illustrated  in  figure  117. 
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Figure  117.  Subroutine  EfflMOD  (EIM)  (Pert  1 of  2) 
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8.12  Subroutine  PLOTIT 


PURPOSE: 


ENTRY  POINTS: 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


CALLED  BY: 


Method: 


To  plot  bomber  and  tanker  sorties 


PLOTIT 


CIO,  C30,  EVENTS,  WCRT,  PLNTAPE,  PLTARRYS , 
PLTPROJ,  PLTSPEC , TAPES,  XMEDGE 

FNDSRT,  HEAD,  HOUSKEEP,  HOUSK2 , HOUSK3 , NEXTTT, 
PIECEIT , PIECE1,  PIECE3,  PIECE4 , PLOTINIT, 
PROJCT,  PROJT2 , SUBPLOT,  SUBREAD 

ENTMOD  (EIM) 


After  calling  PLOTINIT  to  read  user  input,  PLOTIT  is  controlled  by  the 
variables  NGRAPHS,  NCASES  and  NPLOT.  These  parameters  drive  loops  that 
control  the  number  of  plots  produced  per  plot  page,  number  of  pages, 
etc.  Each  individual  sortie  selected  is  retrieved  in  turn  in  the  inner 
most  loop.  After  it  is  relieved,  SUBREAD  is  called  to  store  the  sortie 
in  the  /PLTARRAYS/  block.  When  all  the  sorties  for  a particular  graph 
have  been  stored,  SUBPLOT  is  called  to  plot  them. 

Subroutine  PLOTIT  is  illustrated  in  figure  130.1. 
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8.12.1  Subroutine  FNDSRT 

— — ■■  i ■ 

PURPOSE;  To  retrieve  the  next  desired  sortie 

ENTRY  POINT:  FNDSRT 

FORMAL  PARAMETERS;  ISWIT:  1 - Initialize  search 

2 ■ Get  next  sortie  in  normal  sequence 

3 ■ Get  next  sortie  in  /SLIST/  sequence 

4 ■ All  sorties  retrieved 

COMMON  BLOCKS:  CIO,  C15,  C30,  SLIST 

SUBROUTINES  CALLED;  ABORT,  DIRECT,  HDFND,  NEXTTT,  RETRV 

CALLED  BY;  PLOTIT,  PLOTINIT 

Method: 

The  function  depends  upon  value  of  ISWIT.  If  ISWIT  is  one,  the  sortie 
count  is  set  to  zero,  and  the  sortie  header  is  retrieved.  Also,  if 
NLIST  is  nonzero,  the  reference  code  array,  BREAK  is  zeroed  out. 

If  ISWIT  is  2,  the  next  sortie  on  the  SORTIE  chain  is  retrieved.  If  the 
end  of  the  chain  is  encountered,  ISWIT  is  set  to  4. 

If  ISWIT  is  3,  the  sortie  count  is  incremented.  The  value  in  BREAK  is 
checked.  If  nonzero,  the  reference  code  is  used  to  retrieve  the  sortie. 
If  zero,  the  SORTIE  chain  is  cycled  until  the  desired  sortie  is  found. 

If  any  other  desired  sorties  are  encountered  in  this  process  their 
reference  codes  are  saved.  When  all  sorties  have  been  retrieved  ISWIT 
is  set  to  4. 

If  ISWIT  is  4,  the  subroutine  simply  returns. 

Subroutine  FNDSRT  is  illustrated  in  figure  130.2. 
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8.12.2  Subroutine  INTRPL 

PURPOSE:  To  perform  a linear  Interpolation  between  events 

in  order  to  insert  a time  event. 

ENTRY  POINTS:  INTRPL 

FORMAL  PARAMETERS : I — Number  of  current  bomber  event 

KTIME  - Time  of  next  time  event  (multiple  of  2, 
since  time  event  is  inserted  every  2 
hours  of  flight  time) 

COMMON  BLOCKS:  EVENTS,  PLNTAPE,  PLTARRAYS 

SUBROUTINES  CALLED:  DIFFLONG 

CALLED  BY:  SUBREAD 

Method: 

In  order  to  change  the  color  of  the  plotting  pen  every  2 hours  into  the 
flight,  a time  event  has  to  be  inserted  at  those  points  which  are  reached 
in  2-hour  intervals.  The  distance  between  the  two  events  where  the  time 
event  is  to  be  inserted  is  interpolated  proportionally  to  flight  time 
and  the  latitude  and  longitude  of  the  point  where  the  next  2-hour  in- 
terval ends  are  stored  in  the  arrays  containing  the  points  to  be  plotted, 
SUBHLA  and  SUBHLO. 

Subroutine  INTRPL  is  illustrated  in  figure  130.3. 
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8.12.3  Subroutine  PLBLOFF 


PURPOSE: 


To  offset  a symbol  from  a point,  avoiding  the 
lines  plotted  previously  and  attempting  to  keep 
multiple  symbols  a reasonable  distance  apart. 


ENTRY  POINTS: 


PLBLOFF 


FORMAL  PARAMETERS: 


PHIOLD 

XO 

YO 

K 


BCD 

NUM 

MM 


Label  offset  to  be  computed 
X-coordinate  to  be  computed 
Y-coordlnate  to  be  computed 
Target  counter  (current  Index  into  data 
arrays) 

Number  or  symbol  to  be  plotted 
Event  number 

Number  of  digits  or  characters  to  be 
plotted 


COMMON  BLOCKS: 


PLTARRYS 


SUBROUTINES  CALLED:  PIECEIT,  PIECENUM 

CALLED  BY:  SUBPLOT 


Method : 


First  the  differences  in  latitudes  and  longitudes  of  the  points  which 
are  connected  by  a line  and  to  be  labeled  are  computed  in  order  to  deter- 
mine the  position  of  the  line  on  the  plot.  Then  the  position  of  the 
label  is  tested  to  see  if  it  intersects  the  line.  If  it  does,  its  posi- 
tion is  shifted  until  it  stays  clear  of  the  plotted  line.  Then  subrou- 
tine PIECENUM  is  called  to  perform  the  actual  plotting  of  the  label. 
Subroutine  PIECEIT  is  called  to  save  the  labeled  point  on  the  PIECTAPE 
in  case  it  fell  off  the  graph. 


Subroutine  PLBLOFF  is  illustrated  in  figure  130.4. 
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8.12.4  Subroutine  PLOT IN IT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  read  PLOTIT  input 
PLOTINIT 

N CASES : Number  of  separate  plot  runs 

NGRAPHS : Number  of  graphs  per  run 

NPLOT:  Number  of  plots  per  graph 

MAP : Map  type 

ISORSW:  FNDSRT  control  parameter 

C30,  INCRT,  OOPS,  PLTPROJ,  PLTSPEC,  SLIST, 

FNDSRT,  INSGET,  UNCODE 

PLOTIT 


ZEES 


Methods : 

First  all  defaults  are  set  for  input  controlled  parameters.  Then  the 
SETTING  clause  is  processed.  Each  pair  of  load  and  equals  instruction 
causes  an  input  parameter  to  be  reset  to  the  input  value.  Sortie  num- 
bers input  are  saved  in  block  /SLIST/ . When  the  processing  of  the 
SETTING  clause  is  done,  FNDSRT  is  called  to  initialize  it  and  ISORSW 
set  according  to  NLIST. 

Subroutine  PLOTINIT  is  illustrated  in  figure  130.5. 
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8.12.5  Subroutine  SUBPLOT 


PURPOSE; 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 

COMMON  BLOCKS; 

SUBROUTINES  CALLED; 


To  perform  the  actual  plotting  of  the  event  data. 
SUBPLOT 

NUMPLOT  - Plot  number 

MAP  - Map  type  Indicator 

EVENTS,  INMAP,  PLTARRYS , PLTPROJ,  PLTSPEC,  TICIT, 
XMEDGE 

MAPEDGE,  NEWPEN,*  NUMBER,*  PIECEIT,  PIECENUM, 
PIKS,  PLBOFF,  PLOT,*  PLTTIC,  PRJCT4,  SYMBOL* 


CALLED  BY: 


PLOTIT 


Method; 

First  the  map  type  Indicator  Is  tested  to  determine  which  projection  sub- 
routine has  been  chosen.  If  the  point  coordinates  are  to  be  plotted  In 
the  Mercator  or  Lambert  projection,  subroutine  PR0JCT3  is  called  to  in- 
itialize the  projection  parameters.  For  rectilinear  projection,  the 
scaling  parameters  are  computed  and  printed;  then  the  arrays  of  lati- 
tudes and  longitudes  are  scanned  for  their  minimum  and  maximum  values  in 
order  to  find  the  best  origin  of  the  plot.  Then  the  tlcmarks,  y-axis 
and  x-axis  are  drawn  and  the  labels  are  plotted.  If  subroutine  PIKS  is 
chosen  to  perform  the  point  conversion,  it  is  called  to  scale  the  lati- 
tudes and  longitudes  into  inches  along  the  plot  axes. 

Now  that  the  origin  of  the  plot  is  determined,  the  event  points  are  con- 
verted to  plotting  units  and  the  actual  plotting  of  the  events  can  begin. 
The  following  steps  are  repeated  for  all  graphs:  subroutine  PIECEIT  is 
called  to  initialize  the  pen  for  this  plot.  The  first  and  last  index  in- 
to the  data  arrays  for  this  plot  are  set.  The  coordinates  of  the  first 
point  are  stored  in  XL,  YL.  Now  all  the  events  to  be  put  on  this  plot 
are  processed,  repeating  the  following  steps  until  the  last  index  into 
the  data  arrays  is  reached:  the  coordinates  of  the  previous  point  are 
stored  in  XLL,  YLL,  and  XL,  YL  are  set  for  the  current  point.  Subrou- 
tines PIECEIT  and  MAPEDGE  are  called  to  put  the  point  on  the  graph.  Now 
the  event  type  is  tested  for  proper  labeling  of  the  point.  The  event 
type  Indicator,  as  stored  in  array  SUBJTP,  is  compared  to  all  possible 
event  types:  time,  refuel,  bomber  launch,  recovery,  boundary  crossing, 
to-to-low-altitude,  go-to-high-altitude,  launch  decoy,  launch  ASM,  local 
attrition  or  drop  bomb,  abort,  enter  or  leave  refuel  area;  when  a match 
is  found,  subroutine  PIECENUM  is  called  to  perform  the  proper  labeling 
of  the  event. 


CAL COMP  routines. 
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When  the  plotting  of  the  event  points  is  completed,  the  identifying 
parameters  for  the  sorties,  such  as  group  number,  corridor  number  and 
tanker  or  bomber  sortie  number  are  retrieved  for  all  the  events  on  the 
graph  and  printed  on-line.  The  plotting  routines  NUMBER  and  SYMBOL 
are  called  to  put  all  the  identifying  information  on  the  plot. 

Subroutine  USBPLOT  is  illustrated  in  figure  130.6. 
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8.12.6  Subroutine  SUBREAD 


PURPOSE: 

To  save  the  information  needed  for  plotting  in 
the  arrays  defined  in  common  block  /PLTARRYS/ 
and  to  Insert  a time  event. 

ENTRY  POINTS: 

SUBREAD 

• 

FORMAL  PARAMETERS: 

NUMPLOT  - plot  number 

COMMON  BLOCKS: 

EVENTS,  PLNTAPE , PLTARRYS,  PLTPROJ,  PLTSPEC, 
PRINSP,  INCRT 

SUBROUTINES  CALLED: 

INTRPL 

CALLED  BY: 

PLOTIT 

Method: 

When  module  PLOTIT  retrieves  a sortie  which  Is  to  be  plotted,  it  calls 
subroutine  SUBREAD  to  save  the  Information  needed  for  plotting  in  com- 
mon block  /PLTARRYS/.  First  the  sortie,  group  and  corridor  number  are 
saved.  Then  the  index  into  the  data  arrays  where  the  first  event  for 
this  sortie  is  stored  is  saved  to  Indicate  for  later  use  where  the  in- 
formation for  the  plot  of  this  sortie  begins.  As  these  data  are  stored, 
they  are  printed  on-line.  The  current  cumulative  flight  time  is  tested 
to  determine  if  a 2-hour  interval  since  the  last  time  event  (or  flight 
start)  has  passed  in  order  to  insert  a time  event  at  that  point. 

The  information  saved  for  each  event  consists  of  point  latitude  and 
longitude,  event  type,  target  index  and  warhead  type  index.  If  the 
maximum  number  of  entries  into  these  arrays  is  exceeded,  the  subrou- 
tine prints  the  message  "Array  Overflow"  and  aborts  the  run.  When  all 
events  of  the  current  record  are  saved,  the  above  listed  data  are 
printed.  Then  the  last  index  into  the  data  arrays  for  this  sortie  is 
saved  for  later  use  by  the  plotting  routine  and  control  is  returned  to 
the  calling  program. 

Subroutine  SUBREAD  is  illustrated  in  figure  130.7. 
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9.16  Subroutine  GETSTR 


COMMON  BLOCKS: 


To  obtain  the  next  Input  string  and  make  first 
Interpretation 

GETSTR 


IPQT,  STRING 


SUBROUTINES  CALLED:  None 


CALLED  BY: 
Method: 


ERRFND,  INICOP,  INPRIN,  SRM 


This  subroutine  which  Is  a character-by-character  analysis  of  an  input 
string  from  a card  Image  is  best  understood  by  reference  to  figure  145. 
Basically,  the  process  attempts  to  discriminate  between  alphabetic  and 
numeric  data.  Special  characters  which  appear  In  array  OPRATR  also 
are  discriminated.  A string  Is  terminated  by  a blank  or  a member  of 
OPRATR. 


*tfote  that  this  subroutine  resides  In  the  Main  overlay  of  COP. 
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9.^1  Function  IGETHOB 
PURPOSE: 


ENTRY  POINT: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINE  CALLED: 


CALLED  BY: 


To  calculate  actual  weapon  height  of  burst. 
IGETHOB 

IHOB  - desired  height  of  burst 
ICNCD  - vulnerability  number 
IYLD  - weapon  yield 
IN  - nonzero  if  called  from  PLANSET 

None 

None 

CALCOMP,  INTRFACE 


Method: 


This  function  returns  the  actual  weapon  height  of  burst  (in  hundreds  of 
feet)  in  R format  if  called  from  program  PLANOUT.  That  is,  the  HOB  is 
contained  in  the  last  three  characters  of  the  returned  value  in  BCD  code. 
The  scaled  height  of  burst  is  returned  if  called  from  program  PLANSET. 

The  formal  parameter  IHOB  is  an  integer  variable  set  to  zero  for  ground 
burst  and  one  for  optimal  air  burst.  The  vulnerability  number  is  contained 
as  the  last  four  BCD  characters  of  formal  parameter  ICNCD  if  called  from 
PLANOUT.  (The  country  location  code  CNTRYLOC  is  the  first  two  characters 
of  this  parameter.)  The  vulnerability  is  contained  in  the  first  four  BCD 
characters  of  ICNCD  if  called  from  PLANSET.  The  weapon  yield  in  kilotons 
is  contained  in  formal  parameter  IYLD  in  R5  format  (right- justified  with 
zero  fill  to  left). 


The  method  of  computing  actual  HOB  is  described  in  the  Analytical  Manual, 
Volume  II,  Chapter  2,  Calculation  of  Actual  Height  of  Burst.  Function 
IGETHOB  merely  implements  that  calculation.  The  code  for  calculating  the 
adjusted  vulnerability  nun&er  is  very  similar  to  that  used  in  subroutine 
VLRADP  of  program  PLANSET.  Function  KNOBLANK  is  used  to  convert  the 
actual  height  of  burst  from  integer  hundreds  of  feet  to  BCD  code  in  R 
format. 

The  input  vulnerability  code  la  decoded  into  the  appropriate  vulnerability 
number  VN,  the  letter  ("PM  or  "Q")»  and  the  K-factor  XK.  The  cube  root 
of  the  yield  in  megatons  is  used  to  calculate  the  adjusted  vulnerability 
number  AVN.  The  scaled  height  burst  SHOB  is  determined  by  a series  of  IF 
statements  which  use  the  table  specified  in  the  Analytical  Manual  as 
referenced  in  the  preceding  paragraph.  Finally,  the  actual  height  of 
buTSt  (AHOB)  is  calculated  by  multiplying  by  the  scaled  yield. 

Figure  150  illustrates  function  IGETHOB. 
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9.56  Function  TOFM 


PURPOSE: 


ENTRY  POINTS: 


FORMAL  PARAMETERS: 


Compute  time  of  flight  for  missile  weapons  between 
two  sets  of  earth's  coordinates.  Two  methods  of 
calculations  are  coded.  One  assumes  a nonrotating 
earth;  the  other  a rotating  earth. 


LAULAT  - 


LAULONG 


TARLAT 


TARLONG 


REANG 


Latitude  (degrees)  of  launch  point. 
Replaced  by  weapon  system  minimum 
flight  time,  (TOFMIN,  in  minutes)  if 
formal  parameter  BALC  is  nonpositive 
Longitude  of  launch  point.  Replaced 
by  a PLANSET  determined  constant 
(CMISS)  if  formal  parameter  BALC  is 
nonpositive. 

Latitude  of  aim  point.  Replaced  by 
distance  (DIST  in  nautical  miles)  be- 
tween coordinates  if  formal  parameter 
BALC  is  nonpositive. 

Longitude  of  aim  point.  Replaced  by 
weapon  system  minimum  range  (RANGMIN 
in  nautical  miles)  if  formal  parameter 
BALC  is  nonpositive.  - 

Ballistic  coefficient  (lbs/ft  ) of 
reentry  vehicle.  If  nonpositive,  sen- 
tinel to  use  nonrotating  earth  approx- 
imation. 

Renetry  vehicle  reentry  angle  (degrees). 
Not  used,  if  formal  parameter  BALC  is 
nonpositive. 


COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


CALLED  BY: 


Method : 


FIXWEAP,  GETDTA,  MISASGN 


Nonrotating;  Earth  Solution 

If  the  fifth  formal  parameter  is  nonpositive,  time  of  flight  is  calcu- 
lated assuming  a nonrotating  earth.  Time  of  flight  for  a missile  weapon 
is  calculated  based  on  distance  between  launch  and  target  (DIST) , con- 
stant (CMISS),  and  attributes  TOFM  and  RNGMIN.  Constant  CMISS  is  com- 
puted for  each  missile  type  using  attributes  RANGE,  TOFMIN,  RNGMIN,  and 
SPEED. 
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CHISS  - (BANGE/SPEED)  -tofmin 
(RANGE  -RNGHIN) * 5 

Time  of  flight,  then  equals 

TOFMIN  + CMISS  (DIST  -RNGMIN)'9 

Rotating  Earth  Solution 

If  a ballistic  coefficient  is  supplied,  the  fifth  formal  parameter,  time 
of  flight  is  determined  under  the  assumation  of  a rotating  earth. 

The  data  needed  for  operation  is  as  follows: 

o Launch  location  for  booster  (PX:  Longitude;  PY:  Latitude) 

o Warhead  data  for  each  reentry  object  as  follows: 

- Reentry  angle  (REANG);  if  no  reentry  angle  is  given,  a mini- 
mum energy  path  is  assumed 

- Ballistic  coefficient  (BALC)  of  reentry  vehicle 

- Location  of  the  target  point  (QX:  Longitude;  QY:  Latitude) 

The  process  results  are  a set  of  path  segments  that  describe  the  move- 
ment of  a launch  vehicle  and  its  subsidiaries  from  launch  to  target  hit 
as  follows: 

o Launch:  Launch  to  orbit  insertion  as  a linear  path  with  con- 
stant acceleration.  Orbit  insertion  is  assumed  at  the  atmos- 
phere limit  (ATML).  The  time  to  complete  this  path  is  called 
TB. 

o Elliptical  Orbit:  Elliptical  orbit  commensurate  with  a mini- 
mum energy  trajectory  or  a specified  angle  to  reentry  into 
sensible  atmosphere.  The  time  to  complete  this  path  is  called 
TF. 

o Reentry  to  deceleration  band:  The  first  reentry  segment  is  a 
linear  path  with  constant  velocity  to  the  point  where  decelera- 
tion becomes  significant.  The  time  to  complete  this  path  is 
called  TR1. 

o Deceleration:  The  second  reentry  segment  is  a linear  path  with 
deceleration  to  the  point  where  terminal  velocity  approached. 
The  time  to  complete  this  path  is  called  TR2. 

o Terminal  phase:  The  third  reentry  segment  is  a linear  path 
with  constant  velocity  to  the  point  of  detonation.  The  time 
to  complete  this  path  is  called  TR3. 
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The  elliptical  orbit  path  generation  consumes  the  vast  amount  of  the 
calculation.  This  path  is  calculated  initially  followed  by  the  various 
paths  defined  within  the  earth's  atmosphere.  Kepler's  equations  are 
used  for  the  elliptical  orbit  determination  along  with  a heuristic 
cycling  approach.  The  main  problem  is  the  earth's  rotation  since  as  the 
reentry  vehicle  spends  time  (the  unknown  parameter  to  be  determined) 
above  the  atmosphere,  the  longitude  of  the  aim  point  is  moving  and  the 
amount  of  movement  is  dependent  on  the  TOP.  Iterative  approaches  re- 
solves the  dilemma.  The  aim  point  longitude  is  calculated  using  a TOF 
from  a pervious  set  of  calculations  (Initially  set  to  zero)  and  a new 
TOF  is  determined  based  on  the  given  longitude.  If  the  new  TOF  compares 
within  tolerances  (say  5 seconds)  of  the  previously  determinated  TOF 
solution  is  final.  If  the  two  TOF  are  outside  tolerances,  the  new  TOF 
is  used  to  calculate  the  aim  point  longitude  and  equations  are  solved 
anew.  This  iterative  approach  converges  for  all  possible  trajectories. 

In  addition  to  defined  parameters  the  following  parameters  are  necessary 
for  calculations: 

TTO:  Total  TOF  on  a previous  Interaction  (initiated  to  zero) 

ERAT:  Earth's  rotational  rate 
ACON:  Earth's  radius 

G:  One  over  the  square  root  of  the  gravitational  constant 

Elliptical  Orbit  Determination:  Begin  calculations  of  elliptical  param- 


eters by  computing  great  circle  range  angle  'ALPH02'  between  launch  and 
target  points  as: 

SY  - SINE  (PY) 

QX  * QX  + EXAT  (TF  -TTO) 

TTO  ■ TF 

SW  *-SY  * SINE  (QY) 

COSA  - WQ  * COSINE  (PX  -QX)  + COSINE  (PY)  * COSINE  (QY) 

ALPHAX  - COS"!  (COSA) 

ALPH02  - ALPHAX  * .5 
SA  SIN  (ALPH02) 

Compute  distance  to  unoccupied  focal  point  (DTFP)  from  target  point  in 
plane  of  ellipse,  and  distance  between  focal  points  (FF) . Calculations 
assume  a synetrical  ellipse  about  apogee  of  target  and  launch,  see  fig- 
ure 186. 

t 

For  a specified  reentry  angle  calculate: 

DTFP  - (ACON  + RR)  * SA/SINE  (2.*REANG  + ALPH02) 

FF  - (DTFP  * SINE  (2.  * REANG)/SA 

where  RR  is  the  altitude  of  the  aim  point. 
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DTFP  - 


REANG 


QZ*SIN(p 
SIN  (TT-2*REANG  -|) 


FI  - Unoccupied  Focal  Point 
F2  - Occupied  Focal  Point 


Case  1 — Reentry  Angle  Specified 


DTFP  - AZ*SIN(p 

(Note  right  angle  symnetry) 


Case  2 — Minimum  Energy  Specified 


Figure  186.  Focal  Point  Calculation!* 
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For  no  specified  reentry  angle,  assume  minimum  energy  trajectory  and 
calculate: 

DTFP  - (DTFP  + RR)  * SA 

FF  » (ACON  + RR)  * COSINE  (ALPHA02) 

REANG  « .5  (90°  -ALPH02) 

To  calculate  the  semi-major  axis  (SMA)  and  eccentricity  (E) , of  the 
ellipse. 

SMA  - (ACON  + RR  + DTFP)  * .5 
E - FF/ (2.  * SMA) 

Elliptical  flight  time  is  computed  as: 


BV  - 360  -COSINE 


-1  ^ (ACON  + RR) /SMA  -1.) j 


FV  - 360  + COSINE 


(ACON  + RR) /SMA  -1.) j 


TF  - G * SMA 


(FV  -BV  + E * (SINE  (FV)  -SINE  (BV)) 


This  time  of  flight  (TF)  is  compared  with  the  last  calculated  time  of 
flight  (TTO).  If  the  difference  is  within  tolerances,  say  5 seconds, 
the  elliptical  path  is  completed;  otherwise,  the  entire  calculations  are 
repeated  using  TF  to  determine  the  final  longitude. 

Boost  Path  Determination:  The  flyout  time  of  launch  to  elliptical  orbit 


insertion  is  constructed  assuming  a linear  path  with  constant  accelera- 
tion. 

First  compute  the  distance  to  orbit  insertion  (DTOI)  assuming  altitude 
of  insertion  is  at  the  atmosphere  limit  (ATML)  as: 

DTOI  = ATML/SINE (REANG) 

The  average  velocity  (AVEL)  is  half  the  value  of  velocity  at  orbit  inser 
tion  under  the  assumption  of  constant  acceleration  in  boost,  and  that 
initial  velocity  is  zero.  From  well  known  Keplerlan  equations,  the 
velocity  at  orbit  insertion  is: 

VEL  . I r 2 11* 

G [ATML  + ACON  SMA  J 


Therefore  the  time  to  orbit  insertion  is 

AVEL  - . 5*VEL 
TB  - DTOI /AVEL 


Reentry  Path  Determination:  Reentry  time  is  now  calculated  by  constuct- 
ing  three  segments  for  each  reentry  object.  The  three  segments  are: 
consultant  velocity  to  the  point  where  deceleration  becomes  significant; 
deceleration  path  to  the  point  where  terminal  velocity  is  approach;  seg- 
ment of  constant  velocity  to  the  aim  point. 


Start  construction  of  the  reentry  segments  from  the  altutlde  of  maximum 
deceleration  (AMD) 

SA  - SINE(REANG) 

AMD  - fojff-*'  * LOG  [.0034  * 32.2  * 22000/ (BALC  * SA)] 

Vhere  BALC  is  the  ballistic  coefficient. 

22000.  scales  the  atmosphere  density. 

3 

.0034  is  the  sea  level  density  in  slugs /FT  . 

Define  half  the  altitude  width  of  the  deceleration  segment  as: 

HWAB  = 50,000/6080. 

A constant  is  used  since  this  segment  has  little  variance  for  different 
weapons  systems.  Time  for  first  segment  is  now 

TR1  - (ATML  -AMD  -HWAB) / (SA*VEL) 

The  velocity  at  the  end  of  the  second  segment  is  computed  as: 


-22000 


*32. 2*. 0034/ (BALC*SA) 


VELT  - VEL*EXP 


HWAB  -AMD 

22000. 


Second  segment  time  interval  then  is: 

XR2  „ 4.  *HWAB 

S A (VELT  -VF.L) 


The  last  segment  time  interval  is: 


TR3  - 


(AMD  -HWAB) 
SA*VELT 


Total  trajectory  time,  then,  is  the  summation  of  the  defined  time  seg- 
ments. 

Function  TOFM  is  illustrated  in  figure  186.1. 
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Figure  186.1.  Function  TOFM  (Part  1 of  2) 
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9.57  Subroutine  UN CODE 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 

COMMON  BLOCKS: 


To  decode  en  instruction  code 
UNCODE 


INP:  Input  instruction  code 

IW:  (bits  29-32)  +1 

IX:  bits  33-35 

IY:  (bit  33)  +1 

IZ:  bits  34-35 

None 


SUBROUTINES  CALLED:  None 


Method: 


The  method  is  to  use  FLD  to  break  INP  into  IW,  IX,  IY,  and  IZ. 
Subroutine  UNCODE  is  illustrated  in  figure  187. 


APPENDIX  B 


EXECUTABLE  JOB  CONTROL  LANGUAGE  (JCL) 
QUICK  SYSTEM 


The  QUICK  system  executes  from  an  H*(HIS6000  System  Loadable  file). 
Figure  194  contains  the  JCL  necessary  to  build  the  H*  directly  from 
source  files.  Note  that  within  the  FORTY  activity  for  each  link  an 
object  file  (catalog  632IDPOO/QUIK/OBJECT)  is  also  created.  Figure 

195  contains  the  JCL  to  tecreate  the  H*  from  these  object  files.  In 
effect,  the  programmer  needs  only  replace  the  SELECT  of  the  object 
deck  with  the  corresponding  FORTY  activity  for  each  overlay  link  in 
which  the  source  has  changed  to  recreate  the  H*.  Finally,  figure 

196  contains  the  JCL  to  create  the  QUICK  utility  library  from  source. 
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$ 

IDENT 

5162, COMPL, 314, I M A PROG,631,12 

$ 

USERID 

632IDP99$PASSWORD/UZZ 

$ 

LIMITS 

30,60K,,50K 

$ 

OPTION 

FORTRAN, NOGO 

$ 

$ 

LIBRARY 

LCWLOAD 

UL,PL 

$ 

ENTRY 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32 IDPOO/ QU IK/ OB JECT/ COP 

$ 

SELECT 

632IDPOO/QU IK/SOURCE/ COP/ COP 

$ 

SELECT 

632IDP00/ QUIK/ SOURCE/ COP/BANNER 

$ 

SELECT 

6 3 2 IDPOO / QU IK/ SOURCE / COP/ ERPROC 

$ 

SELECT 

632 IDPOO / QU IK/ SOURCE/ COP/HDFND 

$ 

SELECT 

632IDP00/QU IK/ SOURCE/COP/ INICOP 

$ 

SELECT 

6 32 IDPOO /QU IK/ SOURCE/ COP / INPRIN / 

$ 

SELECT 

632IDPOO/QUIK/ SOURCE  /COP/INSPUT 

$ 

SELECT 

63 2 IDPOO/ QU IK/ SOURCE/ COP/MODGET 

$ 

IDS 

DECK 

$ 

LIMITS 

30.60K, ,50K 

$ 

FILE 

*3,X3R, 100R 

$ 

PRMFL 

C*, W, S ,632 IDPOO/ QU IK/OBJECT/ QDATA 

632IDPOO/QU IK/SOURCE/COP/ QDATA 

$ 

SELECT 

$ 

SELECT 

632 IDPOO/ QUIK/ SOURCE/COP/ QDATB 

$ 

USE 

. QMAX/1/ , . QAREA/3126/, . QMIN/1/ , . FRRD. 

$ 

LINK 

BOOTT 

$ 

FORTY 

MAP, XREF, DECK 

C*,W,S, 6 32 IDPOO/ QU IK/OBJECT/BOOT 

632IDPOO/QU IK/SOURCE/BOOT 

$ 

PRMFL 

$ 

SELECT 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/ COP/ DCTFND 

$ 

SELECT 

6 32 IDPOO/ QU IK/ SOURCE/ COP/MNMFND 

$ 

SELECT 

632IDP00/ QU IK/SOURCE/ COP/NUMFND 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/ COP/RNMFND 

$ 

SELECT 

632IDPOO/ QUIK/ SOURCE/COP/ SEEKER 

$ 

SELECT 

632IDPOO/ QUIK/ SOURCE/COP/ STRMAK 

$ 

LINK 

TABSTR.BOOT 

$ 

USE 

TABLZ / 808/ 

$ 

LINK 

ERRF 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*, W, S , 632IDP00/ QUIK/OB JECT/ERRFND 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/COP/ERRFND 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/COP/LNGSTR 

$ 

SEIXCT 

6 3 2 IDPOO / QU IK / SOURCE/ COP/ SYNTAX 

$ 

SELECT 

632IDP00/ QUIK/ SOURCE/COP/TAB INS 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/COP/WEBSTR 

$ 

LINK 

INPT.ERRF 

$ 

FORTY 

MAP, XREF, DECK 

Figure  194.  H*  Creation  From  Source  (Part  1 of  11) 
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$ 

PRMFL 

C*,W,S,632IDPOO/QUIK/OBJECT/INPTRN 

$ 

SELECT 

632IDPOO/ QU IK/ SOURCE/COP/ INPTRN 

$ 

SELECT 

6 32 IDPOO/ QU IK/ SOURCE/ COP/DELTAB 

$ 

SELECT 

6 32IDPOO/ QU IK/ SOURCE/COP/ INMATH 

$ 

SELECT 

6 32 IDPOO/ qUIK/ SOURCE/COP/LINE 10 

$ 

SELECT 

632IDP00/ qUIK/ SOURCE/COP/PARLEV 

$ 

SELECT 

632 IDPOO/ qu IK/ SOURCE / COP/ TABGET 

$ 

LINK 

JLM, TABSTR 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*, W, S , 632 IDPOO/ qUIK/ OBJECT/ JLM 

$ 

SELECT 

63 2 IDPOO/ qUIK/ SOURCE/ JLM/ JLM 

$ 

LINK 

ASSI 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*,W, S , 632IDP00/qU IK/OBJECT/ASSIGN 

$ 

SELECT 

632 IDPOO/ qUIK/ SOURCE/ JLM/ASS IGN 

$ 

SELECT 

632 IDPOO/ qUIK/ SOURCE/ JLM/ ALPHAS 

$ 

SEI£CT 

632 IDPOO/ QUIK/ SOURCE/ JLM/ PLAYERS 

$ 

SELECT 

632IDP00/ qUIK/ SOURCE/ JIM/TOPRINT 

$ 

LINK 

SELE.ASSI 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32 IDPOO/ qUIK/ OB JECT/ SELECT 

632IDPOO/qU IK/SOURCE/ JLM/ SELECT 

$ 

SELECT 

$ 

SELECT 

632IDP00/qU IK/ SOURCE/ JLM/ ADTOBASE 

$ 

seie:ct 

6 3 2IDP00/ qU  IK/ SOURCE/ JLM/DEFAULT 

$ 

SELECT 

632 IDPOO/ qUIK/ SOURCE/ JLM/KRUNCH 

$ 

SELECT 

632  IDPOO/ qua/ SOURCE/ JIM/ SAMSET 

$ 

LINK 

ASTE.SELE 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*,W,S,632IDPOO/qua/OBJECT/ ASTERISK 
632IDPOO/QUa/SOURCE/ JLM/ASTERISK 

$ 

SELECT 

$ 

LINK 

DATA, JLM 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 3 2 IDPOO/ qU  a/ OB JECT/DATA 
632IDPOO/qua/SOURCE/DATA/DATA 

$ 

SELECT 

$ 

LINK 

DATADL 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

X*,W,S,632IDPOO/qua/OBJECT/DELETE 

632IDPOO/  qua/ SOURCE/DATA/DELETE 

$ 

SELECT 

$ 

LINK 

DATACH, DATADL 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*,W,  S , 632IDPOO/qua/OBJECT/CHANGE 

$ 

SELECT 

6 32  IDPOO/ qua/ SOURCE/DATA/CHANGE 

$ 

SELECT 

632idpoo/ qua/ SOURCE/DATA/DESSCH 

$ 

SELECT 

632IDPOO/qua/SOURCE/DATA/NXTDES 

Figure  194.  (Part  2 of  11) 
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s 

SELECT 

632IDP00/ QUDC/SOURCE/DATA/VALPUT 

$ 

LINK 

DATACR, DATACH 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*,W,  S , 632IDPOO/QiriK/OBJECT/CREATE 

6 32 IDPOO/ QUIK/ SOURCE/ DATA/CREATE 

$ 

SELECT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/DATA/VALPUT 

$ 

LINK 

DBMOD , DATA 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W, S , 632 IDPOO/ QUDC/OBJECT/DBMOD 

6 32 IDPOO/ QU  DC/ SOURCE/DBMOD/DBMOD 

$ 

SELECT 

$ 

SELECT 

632IDP00/ QUDC/ SOURCE/ DBMOD/ DESTAB 

$ 

LINK 

INDXER, DBMOD 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W, S , 6 T2 IDPOO/ QUDC /OBJECT/ INDEXER 

6 32 IDPOO/ QUDC/ SOURCE/ INDEXER/ INDEXER 

$ 

SELECT 

$ 

SELECT 

6 32 IDPOO/ QUDC/ SOURCE/ INDEXER/ COMPLEX 

$ 

SELECT 

632IDPOO/ QUDC/ SOURCE/ INDEXER/ CRTBLE 

$ 

SELECT 

6 32IDPOO/ QU  DC/ SOURCE/ INDEXER/ SETVAL 

$ 

SELECT 

632IDPOO/QU  DC/SOURCE/ INDEXER/ VLRADI 

$ 

LINK 

PLANS, INDEXER 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*. W, S , 632IDPOO/QUIK/OB JECT/PLANSET 

632IDP00/ QUDC/SOURCE/PLANSET/PLANSET 

$ 

SELECT 

$ 

SELECT 

632IDPOO/ QUDC/SOURCE/PLANSET/ADJUSTGP 

$ 

SELECT 

632IDPOO/QUDC/SOURCE/PLANSET/CALCOMP 

$ 

SELECT 

632IDPOO/ QUDC/ SOURCE/PLANSET/GRPEM 

$ 

SELECT 

632IDPOO/ QUDC/SOURCE/PLANSET/PRINTGP 

$ 

SELECT 

632 IDPOO/ QUDC/ SOURCE /PLANSET/SRTTGT 

$ 

SELECT 

6 32 IDPOO/ QUDC/ SOURCE/PLANSET/ TANKER 

$ 

SELECT 

632IDPOO/QUDC/SOURCE/PLANSET/VLRADP 

$ 

LINK 

PREP, PLANS 

$ 

FORTY 

MAP, XREF, DECK 

C* , W , S , 632 IDPOO / QUDC/ OB JECT/ PREPALOC 

632IDPOO/ QUDC/SOURCE/PREPALOC/PREPALOC 

$ 

PRMFL 

$ 

SELECT 

$ 

SELECT 

632IDPOO/ QUDC/ SOURCE/PREPALOC/DEPROUT 

$ 

SELECT 

632IDPOO/ QUDC/SOURCE/PREPALOC/FACTORCG 

$ 

SELECT 

6 32 IDPOO/ QUDC/SOURCE/PREPALOC/FIXWEP 

$ 

SELECT 

6 32IDPOO/ QUIK/ SOURCE/PREP ALOC/MAKECHG 

$ 

SELECT 

632IDPOO/QUIK/ SOURCE/PREP ALOC/PENROUT 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ PREPALOC/WEPPREP 

$ 

SELECT 

632 IDPOO /QUIK/ SOURCE/ PREPALOC /TGTPREP 

$ 

LINK 

EDIT, PREP 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W, S , 6 32 IDPOO/ QUIK/OB JECT/ED ITDB 
632IDPOO/QUDC/SOURCE/EDITDB/EDITDB 

$ 

SELECT 

$ 

LINK 

ECOUNT 

$ 

FORTY 

MAP, XREF, DECK 

Figure  194.  (Part  3 of  11) 
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$ 

PRMFL 

C*,W, S , 632IDP00/ QUIK/ OB JECT/ COUNTS 

$ 

SEIECT 

632IDPOO/QUIK/SOURCE/EDITDB/COUNTS 

$ 

LINK 

EGENED , ECOUNT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 632IDP00/ QUIK/OB JECT/GENEDIT 

$ 

SELECT 

632IDPOO/ QU  DC/SOURCE/ED ITDB/GENEDIT 

$ 

SELECT 

6 32 IDPOO/ QUDC/ SOURCE/EDITDB/BUILDTAB 

$ 

SELECT 

632 IDPOO/ QU  DC/ SOURCE/ED ITDB/FORMLOC 

$ 

SELECT 

632IDPOO/QUDC/SOURCE/EDITDB/SETFLD 

$ 

SELECT 

632IDPOO/ QUDC/SOURCE/EDITDB/SWITH 

$ 

LINK 

ENORMA, EGENED 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32 IDPOO/ QU  DC/ OBJECT/NORMAL 

$ 

SELECT 

6 3 2 IDPOO/ QUDC/ SOURCE /ED ITDB/NORMAL 

$ 

LINK 

EPROCE,  ENORMA 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*, W, S , 632IDPOO/ QU  DC/OB JECT/PROCEDIT 

$ 

SELECT 

632IDPOO/QUDC/SOURCE/EDITDB/PROCEDIT 

$ 

SELECT 

632IDPOO/QUDC/SOURCE/EDITDB/XWITH 

$ 

LINK 

REPORT, ED IT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*,W,S,632IDPOO/QU  DC/OBJECT/RE PORT 

$ 

SELECT 

632 IDPOO/ QUDC  / SOURCE/ REPORT/ REPORT 

$ 

SELECT 

6 32 IDPOO/ QUDC/ SOURCE/ REPORT/ DSPPUT 

$ 

SELECT 

6 32IDPOO/ QU  DC/ SOURCE /RE PORT/ TABMNT 

$ 

LINK 

RPTDSN 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* ,W, S , 632IDPOO/QU  DC/OB JECT/DESIGN 

$ 

SELECT 

6 32 IDPOO/ QUDC/ SOURCE/REPORT/ DES IGN 

$ 

LINK 

RPTALT, RPTDSN 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* ,W , S , 632IDPOO/QUDC/OB JECT/ ALTER 

$ 

SELECT 

632 IDPOO/ QUDC/SOURCE/REPORT/ ALTER 

$ 

LINK 

RPTDMK, RPTALT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 632 IDPOO/QU  DC/OB JECT/DSPMAK 

$ 

SELECT 

632IDPOO/QU  DC/SOURCE/RE PORT/DSEMAK 

$ 

LINK 

RPTPRN, RPTDMK 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*,W, S , 632IDPOO/ QUDC/OB JECT/PRINT 

$ 

SELECT 

632IDPOO/qU  DC/SOURCE/REPORT/PRINT 

$ 

SELECT 

6 32 IDPOO /QUIK/ SOURCE/ REPORT /PRNATD 

$ 

SEIECT 

6 32IDPOO/ QUDC/ SOURCE/ REPORT /XDEFN 

$ 

LINK 

SRM, REPORT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*, W, S , 632IDPOO/QUDC/OBJECT/SRM 
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$ 

SELECT 

632IDPOO/ QUIK/ SOURCE /SKM/SRM 

$ 

LINK 

EIM.SRM 

$ 

FORTY 

MAP, XREF, DECK 

C* , W , S , 632 IDPOO/ QUIK/OB JECT/E IM 
632IDPOO/QUIK/SOURCE/EIM/EIM 

$ 

PRMFL 

$ 

SELECT 

$ 

SELECT 

632IDP00/ QUIK/ SOURCE/EIM/CONVLL 

$ 

LINK 

B SID AC 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32 IDPOO/ QU IK/OB JECT/ S IDAC 

632IDPOO/ QUIK/SOURCE/EIM/SIDAC 

$ 

SELECT 

$ 

LINK 

BOTHER, BS IDAC 

$ 

FORTY 

MAP, XREF, DECK 

C* ,W, S , 632IDPOO/ QUIK/OB JECT/BLDOTH 

6 32 IDPOO/ QUIK/ SOURCE/EIM/BLDOTH 

$ 

PRMFL 

$ 

SELECT 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/EIM/XEDEFN 

$ 

LINK 

BTABLE, BOTHER 

$ 

FORTY 

MAP, XREF, DECK 

632IDPOO/QU IK/OBJECT/TABLE 

$ 

PRMFL 

$ 

SELECT 

632 IDPOO/ QUIK/ SOURCE/EIM/ TABLE 

$ 

LINK 

PLOTTT, BTABLE 

$ 

FORTY 

MAP, XREF, DECK 

$ 

DRMFL 

632IDPOO/ QUIK/OB JECT/PLOTDATA 

$ 

SELECT 

632IDP00/ QUIK/SOURCE/EIM/PLOTDATA 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/EIM/PICS 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/EIM/PROJCT 

$ 

LINK 

PLOTIT, PLOTTT 

$ 

FORTY 

MAP, XREF, DECK 

C*,W, S, 6 32 IDPOO/QUIK/ OBJECT/PLOTIT 

$ 

PRMFL 

$ 

SELECT 

6 31IDP00/ QUIK/ SOURCE/ EIM/PLOTIT 

$ 

SELECT 

6 31IDP00/QUIK/ SOURCE/EIM/ FNDSRT 

$ 

SELECT 

631IDPOO/QUIK/SOURCE/EIM/INTRPL 

$ 

SELECT 

6 31 IDPOO/QUIK/ SOURCE/EIM/PICS 

$ 

SELECT 

6 3 1 IDPOO / QUIK/ SOURCE/ EIM/PBLLOFF 

$ 

SELECT 

6 31 IDPOO/ QUIK/ SOURCE/ EIM/PBLLOFF 

$ 

SELECT 

6 31IDPOO/QUIK/ SOURCE/ EIM/PLOTINIT 

$ 

SELECT 

631IDPOO/QUIK/SOURCE/EIM/PROJCT 

$ 

SELECT 

631 IDPOO / QUIK/ SOURCE/EIM/ SUBPLOT 

$ 

SELECT 

631IDPOO/QUIK/ SOURCE/EIM/ SUBREAD 

$ 

LINK 

ALOC.EIM 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32 IDPOO/ QUIK/OBJECT / ALOC 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/ALOC 

$ 

LINK 

ALCINT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32IDP00/ QUIK/OB JECT/ ALCINT 

632IDPOO/QUIK/ SOURCE/ ALOC/INITAL 

$ 

SELECT 
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$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/CNCLST 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ ALOC/DATGRP 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ ALOC/FLOCRS 

$ 

SELECT 

6 32IDPOO/QUIK/ SOURCE/ ALOC/MRVRST 

$ 

SELECT 

632IDP00/ QUIK/ SOURCE/ ALOC/PRNPUT 

$ 

SELECT 

6 32IDP00/QUIK/ SOURCE/ ALOC/RDMUL 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/RDPRNZ 

$ 

SELECT 

632 IDPOO / QUIK/ SOURCE/ ALOC / RDS  ET 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ ALOC/ RDSMAT 

$ 

SELECT 

632 IDPOO / QUIK/ SOURCE/ ALOC / RNGALT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ ALOC/ SETABLE 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/TIMEPRT 

$ 

LINK 

ALCMUL.ALCINT 

$ 

FORTY 

MAP, XREF, DECK 

C* , W , S , 6 32 IDPOO /QUIK/OBJECT/ ALCMUL 

6 32 IDPOO/QUIK/ SOURCE/ ALOC/MULCON 

$ 

PRMFL 

$ 

SELECT 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/ ADDSAL 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ ALOC/ ASGOUT 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/BOMPRM 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/MYAPOS 

$ 

SELECT 

632IDP00/ QUIK/SOURCE/ALOC/PRNTALL 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/PRNTCON 

$ 

SELECT 

6 32IDP00/QUIK/ SOURCE/ ALOC/PRNTNOW 

•$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/TABLEMUP 

$ 

LINK 

FGD 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W, S , 6 32 IDPOO/QUIK/OBJECT/ FGD 
632IDPOO/QUIK/SOURCE/ALOC/FRSTGD 

$ 

SELECT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/CRDCAL 

$ 

SELECT 

632IDPOO/ QUIK/SOURCE/ALOC/FLGCHK 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/INICRD 

$ 

SELECT 

632IDP00/ QUIK/SOURCE/ALOC/NXSPLT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/PKCALC 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ALOC/PRNTOF 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ ALOC /RECON 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/SETPAY 

$ 

LINK 

SGD.FGD 

$ 

FORTY 

MAP, XREF, DECK 

C* , W , S , 6 32 IDPOO /QUIK/ OBJECT/ SGD 

$ 

PRMFL 

$ 

SELECT 

632IDPOO/QUIK/ SOURCE/ ALOC/SCNDGD 

$ 

SELECT 

6 32IDPOO/QUIK/ SOURCE/ ALOC/NXSPLT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/RECON 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ ALOC/SETPAY 

$ 

LINK 

STAL.SGD 

$ 

FORTY 

MAP, XREF, DECK 

C* , W , S , 6 32 IDPOO/QUIK/ OBJECT/ STAL 

$ 

PRMFL 
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SELECT  632IDP00/ QUIK/ SOURCE/ ALOC/ STALL 
SELECT  632IDPOO/QUIK/SOURCE/ALOC/FORMATS 
SELECT  632 IDPOO/ QUIK/ SOURCE/ALOC/KMUP 
SELECT  632 IDPOO /QUIK/ SOURCE/ ALOC/ LAMGET 
SELECT  632 IDPOO /QUIK/ SOURCE/ ALOC /PREMIUMS 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOC/PRNTOS 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOC/ SALVAL 
SELECT  632IDP00/QUIK/ SOURCE/ ALOC/SPLIT 
SELECT  632 IDPOO/ QUIK/SOURCE/ALOC/WAD 
SELECT  6 32 IDPOO /QUIK/ SOURCE/ ALOC/ WADOUT 
LINK  DEFAL , STAL 
FORTY  MAP, XREF, DECK 

PRMFL  C* ,W, S , 632IDPOO/QUIK/OBJECT/DEFAL 
SELECT  632IDPOO/ QUIK/ SOURCE/ ALOC/DEFALOC 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ ALOC/FMUP 
SELECT  632IDPOO/ QUIK/ SOURCE/ ALOC/LAMGET 
SELECT  632IDP00/QUIK/ SOURCE/ ALOC/PREMIUMS 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ ALOC/ PRNTOD 
SELECT  632IDPOO/QUIK/SOURCE/ALOC/RESVAL 
SELECT  632IDPOO/QUIK/SOURCE/ALOC/SALVAL 
LINK  EVAL , ALOC 

FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 32 IDPOO / QUIK/ OB JECT/ EVALALOC 

SELECT  632 IDPOO/ QUIK/ SOURCE/ EVALALOC /EVALALOC 
SELECT  632 IDPOO/ QUIK/ SOURCE/ EVALALOC / EVALPLAN 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/EVAL2 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/PREVAL 
S ELECT  6 32 IDPOO / QUIK/ SOURCE/ EVALALOC/ SS  SPCALC 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/TGTMDDIF 
SELECT  632 IDPOO /QUIK/ SOURCE/ EVALALOC/ WPNMODIF 
LINK  DGZSEL.EVAL 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 32IDPOO/ QUIK/ OBJECT/ ALOCOUT 

SELECT  6 32IDPOO/QUIK/SOURCE/ ALOCOUT/ ALOCOUT 
LINK  OFFSET 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 32 IDPOO/ QUIK/ OBJECT/OFFSET 

SELECT  6 32IDP00/ QUIK/SOURCE/ ALOCOUT/ COMPRESS 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/CUMINV 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/DGZ 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/ERGOT1 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOCOUT /FINDMIN 
SELECT  632IDPOO/QU IK/ SOURCE/ ALOCOUT/FINDMIN 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOCOUT/F2BMIN 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/GRADF 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/MOVE 
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SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/PERTBLD 
SELECT  632 IDPOO/QUIK/ SOURCE/ ALOCOUT/PROCCOMP 
SELECT  6 32 IDPOO /QUIK/SOURCE/ ALOCOUT / SEECALC 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/SEEINPUT 
SELECT  632 IDPOO / QUIK/ SOURCE/ ALOCOUT/ VAL 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/VMARG 
SELECT  6 32IDPOO/QUIK/ SOURCE/ ALOCOUT/WEPGET 
LINK  ASGSET, OFFSET 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 32 IDPOO/QUIK/OB JECT/ ASGSET 

SELECT  632IDPOO/QUIK/SOURCE/ ALOCOUT/ SUMPRN 
LINK  MINIO, ASGSET 

FORTY  MAP , XREF , DECK 

PRMFL  C* , W , S , 6 32 IDPOO/QUIK/OB JECT/MINIO 

SELECT  632 IDPOO /QUIK/ SOURCE/ ALOCOUT/MINIOUT 
SELECT  632IDP00/QUIK/ SOURCE/ ALOCOUT/ CONVLL 
SELECT  632 IDPOO/QUIK/ SOURCE/ ALOCOUT/ FINDTIME 
SELECT  632IDPOO/QUIK/SOURCE/ ALOCOUT/ INFORN 
LINK  POST.DGZSEL 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 32 IDPOO/QUIK/OB JECT/POSTALOC 

SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/POSTALOC 
SELECT  6 32 IDPOO/QUIK/ SOURCE/POSTALOC/ CENTROID 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/CHGPLAN 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/ CORRPARM 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/DIFF 
SELECT  6 32 IDPOO/QUIK/ SOURCE/POSTALOC/ DUMPSRT 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/EVALB 
SELECT  6 32 IDPOO /QUIK/ SOURCE/POSTALOC/ EVALOA 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/EVALOB 
SELECT  6 32 IDPOO/QUIK/ SOURCE/POSTALOC/ FLTPLAN 
SELECT  632 IDPOO/QUIK/ SOURCE /POSTALOC / FLTROUTE 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/POSTALOC/ GENRAID 
SELECT  632 IDPOO/QUIK/ SOURCE/POSTALOC / GETGROUP 
SELECT  6 32 IDPOO / QU IK/ SOURCE /POST ALOC / GETSORT 
SELECT  6 32 IDPOO/QUIK/ SOURCE/POSTALOC/INITOPT 
SELECT  6 32 IDPOO/QUIK/ SOURCE/POSTALOC/ INPOTGT 
SELECT  6 32 IDPOO/QU IK/SOURCE/POSTALOC/NEXTFLT 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/NOCORR 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/OPTRAID 
SELECT  632 IDPOO/QUIK/ SOURCE/POSTALOC/OUTPOTGT 
SELECT  6 32 IDPOO/QUIK/ SOURCE/POSTALOC/OUTSRT 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/PRERAID 
SELECT  632 IDPOO/QU IK/ SOURCE /POSTALOC /PRINTIT 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/PRNTF 
SELECT  632IDPOO/QUIK/ SOURCE/POSTALOC/ SETFLAG 
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SELECT  632IDP00/QUIK/ SOURCE/POSTALOC/ SORTOPT 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/TGTASGN 
LINK  FOOT, POST 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W, S , 6 32 IDPOO/QUIK/OBJECT/ FOOTPRNT 

SELECT  632 IDPOO / QUIK/ SOURCE/ FOOTPRNT /FOOTPRNT 
LINK  OPTS 
FORTY  MAP ,XRED,DECK 

PRMFL  C* , W , S , 6 32 IDPOO /QU IK/OBJECT/ FOOTOPTS 

SELECT  6 32 IDPOO /QU IK/ SOURCE/ FOOTPRNT /TAB2 INPT 
SELECT  632IDPOO/QUIK/SOURCE/FOOTPRNT/MKAOS 
SELECT  632IDPOO/QUIK/SOURCE/FOOTPRNT/PRAOS 
SELECT  632 IDPOO /QUIK/ SOURCE/ FOOTPRNT/PRINSETS 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/FOOTPRNT/TAOS 
LINK  SETS, OPTS 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/FOOTSETS 
SELECT  632 IDPOO /QUIK/ SOURCE/ FOOTPRNT/NEWCOOR 
SELECT  632IDPOO/QUIK/SOURCE/FOOTPRNT/ SETDATA 
LINK  PLAN, SETS 

FORTY  MAP , XREF , DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/FOOTPLAN 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ FOOTPRNT/ AXES 
SELECT  632IDPOO/QUIK/SOURCE/FOOTPRNT/DRIVER 
SELECT  632IDPOO/QU IK/ SOURCE/ FOOTPRNT/ELLIPSE 
SELECT  6 32IDP00/QUIK/ SOURCE/ FOOTPRNT/PATHFIND 
SELECT  632IDPOO/QUIK/SOURCE/FOOTPRNT/XAOS 
LINK  AS  GN,  PLAN 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S, 6 32IDPOO/QUIK/ OBJECT/ FOOT AS GN 

LINK  PLANO, ROOT 

FORTY  MAP, XREF, DECK 

PRMFL  X* , W , S , 6 32 IDPOO/ QU IK/ OBJECT/PLANO 

SELECT  6 32IDPOO/QUIK/ SOURCE/ PLANOUT/PLANOUT 
SELECT  6 32 IDPOO/ QUIK/SOURCE/PLANOUT/ CL INDATA 
SELECT  6321DPOO/QUIK/SOURCE/PLANOUT/ CONVLL 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/GEOGET 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/SNAPCON 
SELECT  6 32IDPOO/QUIK/ SOURCE/PLANOUT/ SEPDATA 
S ELECT  6 32 IDPOO/QUIK/ SOURCE/PLANOUT/XLL 
LINK  PLOT 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/PLOT 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/PLNTPLAN 
SELECT  6 32 IDPOO/QUIK/ SOURCE/PLANOUT/ALTPLAN 
SELECT  6 32IDPOO/QUIK/ SOURCE/PLANOUT /ADJUST 
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$ 

SELECT 

6 32IDP00/QUIK/ SOURCE/ PLANOUT/ ALTERR 

$ 

SELECT 

6 32IDPOO/QUIK/ SOURCE/PLANOUT/CHGTIM 

$ 

SELECT 

632 IDPOO / QUIK/ SOU  RCE/ PLANOUT/ DECOYADD 

$ 

SELECT 

632 IDPOO/QUIK/SOURCE/PLANOUT/DISTIME 

$ 

SELECT 

632 IDPOO/QUIK/SOURCE/PLANOUT / FINDME 

$ 

SELECT 

6 32 IDPOO /QUIK/ SOURCE /PLANOUT / FLTSORT 

$ 

SELECT 

632 IDPOO / QUIK/ SOURCE /PLANOUT / FLYPO INT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/INITANK 

$ 

SELECT 

632IDP00/QU IK/SOURCE/ PLANOUT / KERPLUNK 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/LAUNCH 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/LNCHDATA 

$ 

SELECT 

632IDP00/ QUIK/SOURCE/PLANOUT/PLAN 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/PLANBOMB 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/PLANTMIS 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/POST 

$ 

SELECT 

6 32 IDPOO /QUIK/ SOURCE/PLANOUT/POSTLAUN 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/SNAPIT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/SNAPOUT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/SORBOMB 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/SWTCHALT 

$ 

LINK 

INTR.PLNT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32IDPOO/QUIK/OBJECT/ INTR 

$ 

SELECT 

631IDP00/QUIK/ SOURCE/PLANOUT/ INTRFACE 

$ 

SELECT 

6 31 IDPOO /QU IK/ SOURCE/ PLANOUT /ABOUT 

§ 

SELECT 

631IDPOO/QUIK/SOURCE/PLANOUT/FINDTIME 

$ 

SELECT 

631IDPOO/QUIK/SOURCE/PLANOUT/IAZIM 

$ 

SELECT 

631IDPOO/QUIK/SOURCE/PLANOUT/IFSET 

$ 

SELECT 

6 31 IDPOO/QUIK/ SOURCE/PLANOUT/ IFUNCT 

$ 

SELECT 

6 32 IDPOO /QUIK/ SOURCE/PLANOUT/ INFORM 

$ 

SELECT 

632 IDPOO/QUIK/ SOURCE/PLANOUT/NOP 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/PRNTOFFS 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/RDCLAUSE 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/ PLANOUT / STOUT 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ PLANOUT /TYPFIND 

$ 

SELECT 

632 IDPOO/ QUIK/ SOURCE/PLANOUT/XSET 

$ 

LINK 

TANK, INTR 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32IDPOO/QUIK/OBJECT/TANK 
632IDPOO/QUIK/SOURCE/PLANOUT/PLANTANK 

$ 

SELECT 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/PLANOUT/PRNTAB 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/PLANOUT/VAM 

$ 

LINK 

DMAKE, PLANO 

$ 

FORTY 

MAD, XRED, DECK 

$ 

PRMFL 

C* , W , S , 6 32 IDPOO / QUIK/ OBJECT/DATAMAKE 

$ 

SELECT 

6 32 IDPOO/QUIK/ SOURCE/ DAT AMAKE/DATAMAKE 
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SELECT  632IDPOO/QUIK/SOURCE/DATAMAKE/CALCOMP 
SELECT  6 32 IDPOO/QUIK/SOURCE/DATAMAKE/COMPLEX 
SELECT  632 IDPOO / QUIK/SOURCE/ DATAMAKE/ CRT ABLE 
SELECT  632 IDPOO/ QUIK/ SOURCE/ DATAMAKE/ SRTTGT 
SELECT  632IDPOO/QUIK/SOURCE/DATAMAKE/VLRADI 
SELECT  632IDPOO/QUIK/SOURCE/DATAMAKE/VLRADP 
EXECUTE  DUMP, DEBUG, NREST.JRE ST 
LIMITS  30, 60K, -3K, 30K 
FFILE  P*,LGU/(06,42,43, 11, 12) 

PRMFL  H*£/W,R,632IDPOO/QUIX/COP/HSTAR 
PRMFL  QD,R/W,R, 632 IDPOO/ QUIK/COP/ IDS 

PRMFL  UL , R/W , R, 6 32 IDPOO/ QUIK/ LIBRARY/UTIL 

PRMFL  PL,R,S,LIBRARY/PLOTLIB 
FILE  02,X2R, 100L 

FILE  08 , X8R, 100L 

FILE  19,X19R,I00L 

TAPE9  20.X20D, , 12345, , INPUT- JAD 

FILE  21.X21R.50L 

FFILE  21.NBUFFS/2 

FILE  22.X22R.50L 

FFILE  22,NBUFFS/2 

FILE  23.X23R.50L 

FILE  23.NBUFFS/2 

FILE  24.X24R.50L 

FFILE  24.NBUFFS/2 

FILE  25,X25R,100R 

FILE  30.X30R.10L 

TAPE 9 31, X31D, ,54321, .OUTPUT-SPILLTAPE 

TAPE9  32,X32D, , 54345 , , SAVE-RESTORE-TAPE 
TAPE9  35, X35D,, 67890,, OUTPUT-TAPE-1 
TAPEO  36 ,X36D, , 98765, , OUTPUT-TAPE-2 
DATA  I* 

ENDJOB 

***EOF 
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$ 

IDENT 

5162,COMPL,314,I  M A PROG, 631, 12 

$ 

USERID 

632 IDP99$PASSWORD/UZ Z 

$ 

LIMITS 

30,60K,,10K 

$ 

OPTION 

FORTRAN, NOGO 

$ 

$ 

LIBRARY 

LOWLOAD 

UL,PL 

$ 

ENTRY 

$ 

SELECT 

6 32 IDPOO/  (?J  IK /OB JECT/ COP 

$ 

SELECT 

632 IDPOO/ QU K/OB JECT/ QDATA 

$ 

USE 

.CJ1AX/1/,  .QAREA/3126/,  .(JON/l/,  .FRRD. 

$ 

LINK 

BOOTT 

$ 

SELECT 

632  IDPOO  /Q  U DC/  OB  JECT/  BOOT 

$ 

LINK 

TABSTR.BOOT 

$ 

USE 

TABLZ/ 808/ 

$ 

LINK 

ERRF 

$ 

SELECT 

632 IPDOO/ QUIK/OB JECT/ERRFND 

$ 

LINK 

INPT.ERRF 

$ 

SELECT 

632 IDPOO/ QU IK/OB JECT/ INPTRN 

$ 

LINK 

JLM,  TABSTR 

$ 

SELECT 

6 32 IDPOO / QUDC/ OB JECT/ JLM 

$ 

LINK 

ASSI 

$ 

SELECT 

632IDP00/ QUK/OBJECT/ASSIGN 

$ 

LINK 

SELE.ASSI 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/SELECT 

$ 

LINK 

ASTE , SELE 

$ 

SELECT 

632IDP00/QU IK/OBJECT/ASTERISK 

$ 

LINK 

DATA, JLM 

$ 

SELECT 

632 IDPOO/ QUIK/OB JECT/DATA 

$ 

LINK 

DATADL 

$ 

SELECT 

632 IDPOO/ QUIK/OB JECT/DELETE 

$ 

LINK 

DATACH, DATADL 

$ 

SELECT 

6 32 IDPOO/ QUIK/OB JECT/ CHANGE 

$ 

LINK 

DATACR, DATACH 

$ 

SELECT 

632IDP00/QU IK/OBJECT/CREATE 

$ 

LINK 

DBMOD , DATA 

632 IDPOO/ QUIK/OB JECT/DBMOD 

$ 

SELECT 

$ 

LINK 

INDXER, DBMOD 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/ INDEXER 

$ 

LINK 

PLANS, INDXER 

$ 

SELECT 

6 3 2 IDPOO / QU IK / OB JECT/ PLANSET 

$ 

LINK 

PREP, PLANS 

$ 

SELECT 

6 3 2 IDPOO / QU IK /OB JECT/ PREPALOC 

$ 

LINK 

EDIT, PREP 

632IDP00/QU IK/OBJECT/ED ITDB 

$ 

SELECT 

$ 

LINK 

ECOUNT 

$ 

SELECT 

6 3 2 IDPOO/ QU IK/ OB JECT/ COUNTS 

Figure  195.  H*  Creation  From  Object  (Part  1 of  4) 
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LINK  EGENED , ECOUNT 

SELECT  632IDPOO/QUIK/OBJECT/GENEDIT 

LINK  ENORMA, EGENED 

SELECT  632IDPOO/ QUIK/ OBJECT/NORMAL 

LINK  EPROCE, ENORMA 

SELECT  632IDPOO/QUIK/OBJECT/PROCEDIT 

LINK  REPORT, EDIT 

SELECT  632IDP00/ QUIK/ OBJECT/REPORT 

LINK  RPTDSN 

SELECT  632IDPOO/QU IK/OBJECT/DESIGN 

LINK  RPTALT, RPTDSN 

SELECT  632IDPOO/QUIK/OBJECT/ALTER 

LINK  RPTMfC,  RPTALT 

SELECT  632IDPOO/ QUIK/ OBJECT/ DSPMAK 

LINK  REPPRN , RPTDMK 

SELECT  632IDPOO/QU IK/OBJECT/PRINT 

LINK  SRM, REPORT 

SELECT  632IDP00/QU IK/OBJECT/ SRM 

LINK  EIM.SRM 

SELECT  632IDPOO/QUIK/OBJECT/EIM 
LINK  BSIDAC 

SELECT  632IDP00/ QUIK/ OBJECT/ SIDAC 

LINK  BOTHER, BSIDAC 

SELECT  632IDPOO/QUDC/OBJECT/BLDOTH 

LINK  BTABLE, BOTHER 

SELECT  632IDP00/QU  IK/OBJECT/TABLE 

LINK  PLOTTT, BTABLE 

SELECT  632IDPOO/ QUIK/ OBJECT /PLOTDATA 

LINK  PLOTIT , PLOTTT 

SELECT  632IDPOO/QUIK/OBJECT/PLOTIT 

LINK  ALOC.EIM 

SELECT  632IDPOO/QUIK/OBJECT/ALOC 
LINK  ALCINT 

SELECT  632IDPOO/QUIK/OBJECT/ALCINT 
LINK  ALCMUL, ALCINT 

SELECT  632IDPOO/QUIK/OBJECT/ALCMUL 
LINK  FGD 

SELECT  632IDPOO/QUIK/OBJECT/FGD 
LINK  SGD.FGD 

SELECT  632IDP00/ QUIK/ OBJ ECT / SGD 
LINK  STAL.SGD 

SELECT  632IDPOO/QUIK/OBJECT/STAL 
LINK  DEFAL , STAL 

SELECT  632IDPOO/QUIK/OBJECT/DEFAL 
LINK  EVAL.ALOC 

SELECT  632IDPOO/QUIK/OBJECT/EVALALOC 


Figure  195.  (Part  2 of  U) 
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$ 

LINK 

DGZSEL, EVAL 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/ALOCOUT 

$ 

LINK 

OFFSET 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/OFFSET 

$ 

LINK 

ASGSET, OFFSET 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/ASGSET 

$ 

> link 

MINIO, ASGSET 

$ 

SELECT 

6 32 IDPOO/QUIK/OBJECT/MINIO 

$ 

LINK 

POST, DGZSEL 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/POSTALOC 

$ 

LINK 

FOOT, POST 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/FOOTPRNT 

$ 

LINK 

OPTS 

$ 

SELECT 

6 3 2 IDPOO / QU IK/ OBJECT / FOOTOPTS 

$ 

LINK 

SETS, OPTS 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/FOOTSETS 

$ 

LINK 

PLAN, SETS 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/FOOTPLAN 

$ 

LINK 

AS GN, PLAN 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/FOOTASGN 

$ 

LINK 

PLANO, FOOT 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/PLANO 

$ 

LINK 

PLNT 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/FLNT 

$ 

LINK 

INTR.PLNT 

$ 

SELECT 

632 IDPOO / QU IK/OB J ECT/ INTR 

$ 

LINK 

TANK , INTR 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/TANK 

$ 

LINK 

DMAKE, PLANO 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/DATAMAKE 

$ 

EXECUTE 

DUMP , DEBUG , NREST , JREST 

$ 

LIMITS 

10,60K,-3K,10K 

$ 

FFILE 

PX.LGU/ (06,42,43,11,12) 

$ 

PRMFL 

H*, R/W, R, 632IDPOO/QUIK/COP/HSTAR 

$ 

PRMFL 

QD , R/W , R, 6 31 IDPOO/ QUIK/ COP/ IDS 

$ 

PRMFL 

UL, R/W, R, 631 IDPOO/ QUIK/LIBRARY/UTIL 

$ 

PRMFL 

PL , R , S , LIBRARY/PLOTLIB 

$ 

FILE 

02,X2R, 100L 

$ 

FILE 

08,X8R, 100L 

$ 

FILE 

19,X19R,100L 

$ 

TAPE9 

20, X20D, ,12345, , INPUT- JAD 

$ 

FILE 

21,X21R,50L 

$ 

FFILE 

21,NBUFFS/2 

$ 

FILE 

22.X22R, 50L 

$ 

FFILE 

22.NBUFFS/2 

$ 

FILE 

23,X23R, SOL 
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$ 

FFILE 

23.NBUFFS/2 

$ 

FILE 

24,X24R,50L 

$ 

FFILE 

24.NBUFFS/2 

$ 

FILE 

25.X25R, 100R 

$ 

FILE 

30,X30R,10L 

$ 

TAPE9 

31.X31D, , 54321, , OUTPUT- SPILLTAPE 

$ 

TAPE9 

32, X3 2D, ,54345, , SAVE-RESTORE-TAPE 

$ 

TAPE9 

35, X35D, ,67890, , OUTPUT-TAPE-1 

$ 

TAPE9 

36.X36D, ,98765, , OUTPUT-TAPE-2 

$ 

DATA 

I* 

$ 

***EOF 

ENDJOB 

■ - ■ ■ ■ ■ | 

$ 

IDENT 

5162 ,CUTIL, 314,1  M A PROG, 631, 12 

$ 

USERID 

632 IDP99$PASSWORD/UZZ 

$ 

LIMITS 

10,32K, ,60K 

$ 

FORTY 

DECK, MAP, XREF 

$ 

FILE 

C*,X15, 100L 

$ 

SELECT 

632IPD00/ QUIK/MSRC/UTIL/ ABORT 

$ 

SELECT 

632 IDPOO/ QU IK/MSRC/UTIL/ ACOS 

$ 

SEIJSCT 

632IDP00/QUIK/MSRC/UTIL/ASIN 

$ 

SELECT 

6 32 IDPOO / QU  DC/SOURCE/UTIL/ ATFNDR 

$ 

SELECT 

632IDP00/QU IK/MSRC/UTIL/ ATN2PI 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/UTIL/CINSGET 

$ 

SELECT 

632IDP00/ QUIK/MSRC/UTIL/ COT 

$ 

SELECT 

632IDP00/ QUIK/MSRC/UTIL/DELLONG 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/DIFFLONG 

$ 

SELECT 

632IDP00/QUIK/MSRC/UTIL/DISTF 

$ 

SELECT 

6 3 2 IDPOO/ QUEC/MSRC/UT IL/DOTLINE 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE /FINDCLAS 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/UTIL/FINDSIDE 

$ 

SELECT 

632IDP00/ QUIK/SOURCE/UTIL/FORMAK 

$ 

GMAP 

DECK 

$ 

FILE 

C*,X1S 

$ 

SEIJSCT 

632IDP00/ QUIK/MSRC/UTIL/ GETCLOCK 

$ 

FORTY 

DECK, MAP, XREF 

$ 

FILE 

C*,X1S 

$ 

SELECT 

632IDP00/ QUIK/MSRC/UTIL/GETDATE 

$ 

SELECT 

632IDP00/QUIK/S0URCE/UTIL/GETNXT 

$ 

SELECT 

6 32IDP00/QU IK/SOURCE/UTIL/ GETSTR 

$ 

SELECT 

632IDP00, QUIK/SOURCE/UTIL/GETTAR 

$ 

SELECT 

632IDP00/QUIK/MSRC/UTIL/GETVALU 

$ 

SELECT 

6 3 2 IDPOO/ QUTK/MSRC/UT IL/GLOG 

$ 

SELECT 

632IDP00/ QUIK/MSRC/UTIL/HOUSKEEP 

$ 

SELECT 

632IDP00/QUIK/MSRC/UTIL/IGET 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/UTIL/IGETHOB 

$ 

SELECT 

6 32 IDPOO/QUIK/MSRC/UTIL/ IHASH 

$ 

SELECT 

6 32 IDPOO/ QUIK/MSRC/UTIL/ IMAX 

$ 

SELECT 

632 IDPOO/ QUIK/MSRC/UTIL/ INTERP 

$ 

SELECT 

632 IDPOO/ QUIK/MSRC/UTIL/ INTERPGC 

$ 

SELECT 

6 32 IDPOO/QUIK/MSRC/UTIL/ INTPIECE 

$ 

SELECT 

632IDP00/QU  DC/SOURCE/UTIL/ IORFL 

$ 

SELECT 

632 IDPOO/ QUIK/MSRC/UT IL/ IPUT 

$ 

SELECT 

632IDP00/ QUIK/MSRC/UTIL/ ISOFF 

$ 

SELECT 

632 IDPOO/QUIK/MSRC/UTIL/ ITLE 

$ 

SELECT 

632IDP00/ QUIK/MSRC/UTIL/ IWANT 

$ 

SELECT 

632IDP00/ QUIK/MSivC/UTIL/KEYMAKE 

$ 

SELECT 

632 IDPOO/QU IK/MSRC/UTIL/ LATBT 

$ 

SELECT 

632IDP00/ QUIK /SOURCE /UTIL/LINKUP 

| Figure  196.  Utility  Library  Creation  (Part  1 of  3) 
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$ 

GMAP 

DECK 

$ 

FILE 

C*,X1S 

$ 

SELECT 

631IDPOO/QUIK/MSRC/UTIL/LOCF 

$ 

FORTY 

DECK, MAP, XREF 

$ 

FILE 

C*,X1S 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/LOCREAD 

$ 

SEIECT 

6 3 2 IDPOO/ QU IK /MSRC/UT IL/ LREORDER 

$ 

SELECT 

632IDP00/QUIK/MSRC/UTIL/MAPEDGE 

$ 

SELECT 

632IDP00/ QUIK/MSRC/UTIL/NUMDEL 

$ 

SELECT 

632IDP00/QUK/MSRC/UTIL/NUMGET 

$ 

seiect 

632IDPOO/QUIK/ SOURCE/UTIL/ OFVAL 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/ORDER 

$ 

SELECT 

632IDPOO/QUDC/MSRC/UTIL/PIECEIT 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/PIECENUM 

$ 

SELECT 

632IDPOO/QUK/MSRC/UTIL/PLTTIC 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/UTIL/PRIMHD 

$ 

SELECT 

6 32 IDPOO/ QU IK/ SOURCE/UTIL/ PSREC 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/RANF 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/RANFSET 

$ 

SELECT 

632IDPOO/qUDC/Mr”lC/UTIL/REORDER 

$ 

SELECT 

632IDP00/QUIK/MSRC/UTIL/RLBRT 

$ 

SELECT 

632IDP00/ QOIK/MSRC/UTIL/  SETDEF 

$ 

GMAP 

DECK 

$ 

FILE 

C*,X1S 

$ 

SELECT 

632IDPOO/QUDC/MSRC/UTIL/SETORD 

$ 

FORTY 

DECK, AMP, XREF 

$ 

FILE 

C*,X1S 

$ 

Select 

632IDPOO/QUIK/SOURCE/UTIL/SETSCH 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/SLOG 

$ 

SELECT 

532IDPOO/QU IK/ SOURCE/UTIL/ SORT IT 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/SSKPC 

$ 

SELECT 

632IDPOO/ QULK/MSRC/UTIL/STD 

$ 

GMAP 

DECK 

$ 

FILE 

C*,X1S 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/UTIL/SVTP 

$ 

FORTY 

DECK, MAP, XREF 

$ 

FILE 

C*,X1S 

$ 

SELECT 

632 IDPOO/ QUIK/MSRC/UTIL/TAN 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/TICMAKE 

$ 

SELECT 

632IDPOO/ QU IK /MSRC /UTIL/ TIMED AY 

$ 

SELECT 

632IDPOO/ QUIK/MSRC/UTIL/TIMEME 

$ 

SELECT 

6321DPOO/QUIK/SOURCE/UTIL/TOFM 

$ 

SELECT 

632IDPOO/QU IK/ SOURCE/UTIL/UNCODE 

$ 

SELECT 

632IDPOO/ QUIK/ SOURCE/UTIL/ VALFND 

$ 

SELECT 

632 IDPOO/ QUDC/MSRC/UTIL/VALTAR 

$ 

SELECT 

6 32 IDPOO/ QUIK/MSRC/UTIL/XCOORD 

Figure  196.  (Part  2 of  3) 
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SELECT  632IDP00/ QUIX/SOURCE/UTIL/XMATH 
SELECT  632IDPOO/QUIK/SOURCE/UTIL/XWHERE 
SELECT  632IDPOO/QUK/MSRC/UTIL/ZTAN 
UTILITY 

LIMITS  10.32K, ,60K 

FUTIL  BB,CC,RWD/BB/,C0FY/1R/ 

FUTIL  AA, CC.RWD/AA/, COPY/9  F/ 

FUTIL  BB , CC , RWD/BB / , SK IP/ 1R/ , COPY/ 1R/ , RWD/CC/ 

FILE  AA,X1S,100L 

FILE  CC,X4S,100L 

DATA  BB,,COPY 

INCLUDE 

ENDEDIT 

ENDCOPY 

FILEDIT  NOSOURCE , OBJECT , INITIALIZE 

FILE  R*,X2S, 100L 

FILE  *C , X4R, 100L 

PROGRAM  RANLIB 

FILE  R*,X2R, 100L 

PRMFL  A4,R/W,R,632IDP00/QUIK/LIBRAKY/UTIL 
ENDJOB 
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PERFORM  PROGRAM 


This  appendix  contains  maintenance  Information  for  the  PERFORM  program. 
PERFORM  is  an  on-line  program  designed  to  generate  remote  job  entry 
jobs  for  the  QUICK  system. 


C. 1 Purpose 

PERFORM  is  an  on-line  interactive  program  which  creates  a file  of  Job 
Control  Language  (JCL)  according  to  user  directions.  This  file  of  JCL 
may  be  set  up  to  perform  any  combination  of  the  following  functions: 

o Run  QUICK 

o Recompile  a module  of  QUICK  and  recreate  the  QUICK  H*  file 
o Recompile  and  recreate  the  QUICK  uttility  subroutine  library 

C.2  Input 


PERFORM  is  an  interactive  system  and,  therefore,  obtains  part  of  its 
input  from  user  responses  from  the  terminal.  PERFORM  also  has  three 
files  (or  sets  of  files)  which  it  uses  to  build  the  job  stream  JCL. 


o A set  of  files  each  of  which  contains  the  JCL  required  to  define 
a module  and  its  linkage  from  object  files.  These  files  are  all 
under  the  catalogue  631IDPOO/TEST/COP/CANOF 

o A set  of  files  each  of  which  contains  the  JCL  required  to  define 
a module  and  its  linkage  from  source  files.  These  files  are  all 
under  this  catalogue  631IDPOO/TEST/COP/NEWCANOF 


o A file  (631IDPOO/PERFORM/VRBLIM)  which  details  the  various  re- 
quired limits  for  the  system  and  which  contains  one  record  for 
each  legal  verb: 


- Column  1-8 

- Column  9-11 

- Column  12-14 

- Column  15-17 


Verb  Name 
Maximum  CPU  Time 
Maximum  Core  Requirements 
Maximum  Lines  of  Output 


o A file  (6 31IDPOO/PERPORM/IDENT2 ) which  details  the  currently 
recognized  users  of  the  QUICK  system.  It  also  contains  infor- 
mation concerning  the  data  files  used  by  said  users.  For  each 
user,  the  file  contains  two  records  plus  as  many  records  as  the 
number  of  data  files  used. 
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Record  1 


Column  1-12 
Column  13-24 
Column  25 
Column  26 


USERID 

Name  used  in  PERFORM  interactive  output 

Number  of  files  used 

User  salutation  parameter: 

1 - Salutation  suppressed 

2 - Salutation  activated 


Record  2 

Column  1-48  IDENT  card  for  user 

Record  3 and  following 

Column  1-4  Source  subcatalogue  name  (i.e.,  TEST,  DUAL) 
Column  5-8  Number  of  pages  in  data  file 
Column  9-32  Data  file  name 

A file  (631IDPOO/PERFORM/SPFILE)  which  details  an  additional 
file  whose  description  must  be  added  to  those  normally  found 
in  the  JCL.  These  descriptions  are  related  to  the  verbs  which 
the  user  has  specified.  Each  additional  file  has  one  record. 


Column  1-8 
Column  9 
Column  10-11 
Column  12 

Colume  13-48 


C. 4 Concept  of  Operation 


Verb 

Blank 

File  code 

R for  input  file 

W for  output  file 

Description  of  file  used  in  PERFORM  out- 
put 


PERFORM  follows  a series  of  steps  at  user  direction.  For  details  of  the 
question  and  answer  sequences  see  CSM  UM  9-77,  Volume  I.  Based  on  selec- 
tion of  'MODE' , PERFORM  generates  JCL  for  the  job  stream  by  adding  a 
series  of  file  names  from  the  appropriate  /CANOF  and/or  /NEWCANOF  cata- 
logues. For  'RUN'  mode,  only  the  current  QUICK  system  H*  is  used.  The 
user  supplies  a list  of  the  verbs  being  used.  From  this  list,  PERFORM 
uses  the  information  stored  on  file  URBLIM  to  compute  the  LIMITS  card 
parameters.  The  user  may  alter  these.  The  user  is  then  requested  to 
add  data  files  and/or  lines  of  input.  Then  the  SPFILE  file  is  consulted 
to  see  if  the  user  desires  any  special  files.  Finally,  the  LIMITS  and 
other  final  cards  are  added  and  the  user  is  instructed  as  to  how  to  sub- 
mit the  job. 

For  'COMPILE'  mode,  the  QUICK  H*  is  recreated.  The  files  in  the  'CANOF 
catalogue  which  refer  to  normal  modules  in  the  QUICK  system,  except  for 
those  whose  recompile  is  desired,  are  added  to  'THEJOB'  file.  For  those 
modules  which  are  to  be  recompiled,  the  corresponding  file  in  the 
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/NEWCANOF  catalogue  is  added.  The  user  Is  then  asked  If  run  mode  Is 
desired  and  If  so,  that  mode  Is  entered  to  build  a job  to  execute  the 
new  system  H*. 

For  'OBJECT'  mode,  a temporary  H*  Is  created.  This  H*  is  built  using 
the  /CANOF  files  for  the  executive.  Added  to  these  are  the  /NEWCANOF 
files  for  modules  the  user  wishes  recompiled.  Finally,  any  additional 
modules'  /CANOF  file  is  added  at  user  request.  The  modules  added  and / 
or  recompiled  need  not  be  normal  elements  of  the  system.  After  all  de- 
sired modules  have  been  added,  run  mode  is  entered  to  execute  the  tem- 
porary H*. 

For  'INITIALIZE'  mode,  an  activity  initializing  the  IDA  data  file  is 
added  to  THEJOB.  The  program  then  asks  for  mode  again. 

C.5  Major  Subroutines 

PERFORM  has  two  subroutines.  READIN  scans  user  input  and  converts  any 
lower  case  ASCII  letters  to  upper  case  ASCII  letters.  IDENT  builds  the 
job  stream  IDENT  card. 

C.6  Common  Blocks 

PERFORM  has  only  one  common  block  LINE.  This  block  contains  the  array 
LINE(80)  which  is  used  to  communicate  with  subroutine  READIN.  Each  word 
of  LINE  contains  one  character  of  input. 
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C.7  Program  PERFORM 

PURPOSE:  To  build  JCL  through  on-line  interaction 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 

None 

C0M10N  BLOCKS: 

LINE 

SUBROUTINES  CALLED: 

READIN, 

IDENT 

CALLED  BY: 

Entered 

through  TSS  subsystem  YFORT 

Method: 

First  the  file  THEJOB  is  attached  and  the  IDENT  card  added  to  it.  Next 
the  mode  is  requested.  If  the  reply  is  'RUN' , skip  to  statement  200 
(figure  197).  If  the  reply  in  'COMPILE'  the  program  asks  for  a list  of 
the  modules  changed.  A reply  of  'HELP'  will  list  the  modules.  A reply 
of  'UTILITY'  or  'UTIL'  causes  ' 631IDPOO/TEST/COP/CANOF/UTIL'  to  be  added 
to  THEJOB.  Now  the  program  goes  through  all  modules  adding  files  from 
the  CANOF  catalogue  for  unchanged  modules  and  from  the  NEWCANOF  catalogue 
for  changed  modules.  Then  the  user  is  asked  if  run  mode  is  desired.  If 
not  skip  to  statement  300  (figure  197). 

If  reply  to  'MODE'  is  'OBJECT'  the  program  asks  for  modules  to  be  recom- 
piled and  any  other  modules  needed.  These  are  added  to  the  executive  to 
build  a temporary  H*.  Control  tuen  passes  to  the  run  mode.  If  reply  to 
'MODE'  is  'INITIALIZE'  an  IDS  initialization  activity  (Program  QUTI)  is 
added  to  'THEJOB'  and  a new  mode  is  requested. 


Statement  200 

CANOF /RUN  is  added  to  THEJOB.  The  VRBLIM  file  is  attached,  read  in  and 
detached.  The  user  now  inputs  a list  of  the  desired  verbs.  If  the  reply 
is  'HELP',  the  legal  verbs  are  listed.  The  program  now  calculates  the 
run  limits.  The  limits  are  displayed  and  the  user  given  the  opportunity 
to  change  them.  Now  the  user  is  asked  to  input  data  file  names.  Each 
file  name  is  added  to  THEJOB.  When  the  reply  'DONE'  is  encountered,  the 
| user  is  asked  if  additional  data  is  desired.  Otherwise  the  user  is  asked 
to  input  care  images  which  are  added  to  THEJOB.  When  a blank  care  is  in- 
put the  user  is  asked  if  additional  files  are  desired  and  if  so  control 
returns  to  the  input  of  data  files. 

When  no  more  input  is  desired,  the  program  reads  file  SPFILE  for  any  spe- 
cial files  that  the  input  verbs  may  require.  The  user  is  asked  to  select 
the  JCL  format  for  any  such  special  file. 
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Figure  197.  (Part  5 of  14) 
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LINE 


C .8  Subroutine  READ IN 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


To  convert  lower  caae  to  upper  case 
READIN 

V:  Variable  In  which  first  eight  characters  may 

be  returned 

FLAG:  -1,  return  first  eight  characters  In  V. 

1*1,  do  not  alter  V. 


SUBROUTINES  CALLED:  NONE 


CALLED  BY: 
Method: 


PERFORM 


LINE  Is  filled  from  the  user  Input  replay.  Each  character  Is  then  exam- 
ined and  converted  to  upper  case  If  It  Is  lower  case.  FLAG  Is  checked 
and  If  equal  to  1,  the  first  eight  positions  of  LINE  are  encoded  Into  V. 

Subroutine  READTN  Is  Illustrated  In  figure  198. 
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Figure  198.  Subroutine  READIN 


C.9  Subroutine  IDENT 


To  build  the  JCL  file  IDENT  card  and  maintain  the 
IDENT2  file. 


PURPOSE 


IDENT 


ENTRY  POINTS 


Name  of  user  used  in  terminal  output 
Catalog  file  string  of  IDS  data  file 
Subcatalog  for  program  source 
Size  of  IDS  file  in  pages 


WHO: 

FILE 

CAT: 

SIZE 


FORMAL  PARAMETERS 


COMMON  BLOCKS 


None 


USRCOD 


SUBROUTINES  CALLED 


PERFORM 


CALLED  BY 


Method 


First  the  system  subroutine  USRCOD  is  called  to  obtain  the  USERID  with 
the  user  used  to  sign  onto  the  system.  This  is  compared  with  the  list 
of  USERIDs  found  on  file  631IDPOO/PERFORM/IDENT2 . If  found,  the  infor- 
mation on  IDENT2  is  used  to  construct  a $ IDENT  card  for  the  JCL  file 
(THEJOB).  The  other  information  needed  for  the  parameters  which  are 
returned  (i.e.,  WHO,  FILE  CAT  and  SIZE)  is  also  obtained  directly  from 
the  IDENT2  file.  In  the  process  the  user  may  be  asked  to  select  from 
several  possible  data  files. 


If  the  USERID  does  not  appear  on  IDENT2,  a series  of  questions  and  an 
swers  is  used  to  build  a new  file  entry  before  processing  continues. 


Subroutine  IDENT  is  illustrated  in  figure  199 
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Figure  199.  Subroutine  IDENT  (Part  1 of  4) 
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